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

remove ' from dependSingle's name

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-15 20:10:09 +02:00
parent 393e75ce19
commit 490a20c85c
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
make-pages/Depend.hs
View file

@ -9,13 +9,13 @@ import Data.Text.Lazy.Builder (toLazyText)
import System.FilePath import System.FilePath
dependSingle' :: FilePath -- ^ yaml file name (relative to data dir!) dependSingle :: FilePath -- ^ yaml file name (relative to data dir!)
-> Info -> Info
-> FilePath -- ^ output prefix -> FilePath -- ^ output prefix
-> FilePath -- ^ build dir -> FilePath -- ^ build dir
-> Bool -- ^ include nsfw? -> Bool -- ^ include nsfw?
-> Text -> Text
dependSingle' yaml info prefix build nsfw = dependSingle yaml info prefix build nsfw =
let dir = build </> prefix </> takeDirectory yaml let dir = build </> prefix </> takeDirectory yaml
images = if nsfw then #images info else filter #sfw $ #images info images = if nsfw then #images info else filter #sfw $ #images info
paths = map #path images paths = map #path images

2
make-pages/Main.hs
View file

@ -45,7 +45,7 @@ main2 (DependSingle {file, nsfw, output, prefix, buildDir, dataDir}) = do
printV $ "contents" :- info printV $ "contents" :- info
let path = makeRelative dataDir file let path = makeRelative dataDir file
printV $ "path" :- path printV $ "path" :- path
let deps = dependSingle' path info prefix buildDir nsfw let deps = dependSingle path info prefix buildDir nsfw
writeOutput output deps writeOutput output deps