add another verbose print

This commit is contained in:
Rhiannon Morris 2020-08-01 01:44:22 +02:00
parent d55b13d484
commit fc2185e622

View file

@ -91,6 +91,7 @@ main2 (DependGallery {file, output, buildDir, dataDir, tmpDir, infoName}) = do
main2 (ListTags {nsfw, listUntagged, dataDir, infoName}) = do main2 (ListTags {nsfw, listUntagged, dataDir, infoName}) = do
infos <- mapM (infoYAML dataDir) =<< findInfos dataDir infoName infos <- mapM (infoYAML dataDir) =<< findInfos dataDir infoName
printV $ "info files" := infos
ListTags.run nsfw listUntagged infos ListTags.run nsfw listUntagged infos