remove ' from dependSingle's name
This commit is contained in:
parent
393e75ce19
commit
490a20c85c
2 changed files with 8 additions and 8 deletions
|
@ -9,13 +9,13 @@ import Data.Text.Lazy.Builder (toLazyText)
|
|||
import System.FilePath
|
||||
|
||||
|
||||
dependSingle' :: FilePath -- ^ yaml file name (relative to data dir!)
|
||||
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 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
|
||||
|
|
|
@ -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
|
||||
|
||||
|
||||
|
|
Loading…
Reference in a new issue