rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

option to list tags by name

Browse source
This commit is contained in:
Rhiannon Morris 2021-03-07 20:51:44 +01:00
parent da23a052f0
commit c1d588f702
3 changed files with 22 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
make-pages/Main.hs
View file

@ -95,10 +95,10 @@ main2 (DependGallery {file, output, buildDir, dataDir, tmpDir, infoName}) = do
map dependGallery0 galleries
writeOutput output deps
main2 (ListTags {nsfw, listUntagged, dataDir, infoName}) = do
main2 (ListTags {nsfw, listUntagged, dataDir, infoName, sortBy}) = do
infos <- mapM (infoYAML dataDir) =<< findInfos dataDir infoName
printV $ "info_files" := infos
ListTags.run nsfw listUntagged infos
ListTags.run nsfw listUntagged sortBy infos
infoYAML :: FilePath -- ^ data dir