make sfw info fields a bit clearer
This commit is contained in:
parent
75b91f43b4
commit
cc65ebb388
2 changed files with 6 additions and 3 deletions
|
@ -17,7 +17,7 @@ dependSingle :: FilePath -- ^ yaml file name (relative to data dir!)
|
|||
-> Text
|
||||
dependSingle yaml info prefix build nsfw =
|
||||
let dir = build </> prefix </> takeDirectory yaml
|
||||
images = if nsfw then #images info else filter #sfw $ #images info
|
||||
images = if nsfw then #images info else #sfwImages info
|
||||
paths = map #path images
|
||||
index = dir </> "index.html"
|
||||
deps = thumbFile (thumbnail info) : map pageFile paths ++ paths
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue