remove ' from dependSingle's name

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

View file

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

View file

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