add download files to dependencies??
This commit is contained in:
parent
a2e974ca51
commit
4d7c521070
1 changed files with 2 additions and 3 deletions
|
@ -7,7 +7,7 @@ where
|
||||||
import BuilderQQ hiding (CanBuild (..))
|
import BuilderQQ hiding (CanBuild (..))
|
||||||
import Info hiding (Text)
|
import Info hiding (Text)
|
||||||
|
|
||||||
import Data.Maybe (fromMaybe, mapMaybe)
|
import Data.Maybe (fromMaybe)
|
||||||
import Data.Text.Lazy (Text)
|
import Data.Text.Lazy (Text)
|
||||||
import Data.Foldable
|
import Data.Foldable
|
||||||
import System.FilePath
|
import System.FilePath
|
||||||
|
@ -32,7 +32,6 @@ dependSingle' yamlDir indexFile info prefix build nsfw =
|
||||||
maybe [] (toList . allImages) $
|
maybe [] (toList . allImages) $
|
||||||
if nsfw then Just $ info.images else sfwImages info
|
if nsfw then Just $ info.images else sfwImages info
|
||||||
|
|
||||||
dls = mapMaybe (.download) images
|
|
||||||
extras = info.extras
|
extras = info.extras
|
||||||
|
|
||||||
dir = build </> prefix </> yamlDir
|
dir = build </> prefix </> yamlDir
|
||||||
|
@ -41,7 +40,7 @@ dependSingle' yamlDir indexFile info prefix build nsfw =
|
||||||
thumbFile (thumbnail info) :
|
thumbFile (thumbnail info) :
|
||||||
map pageFile images ++
|
map pageFile images ++
|
||||||
map bigFile images ++
|
map bigFile images ++
|
||||||
dls ++ extras
|
extras
|
||||||
|
|
||||||
dependGallery :: GalleryInfo
|
dependGallery :: GalleryInfo
|
||||||
-> FilePath -- ^ index file
|
-> FilePath -- ^ index file
|
||||||
|
|
Loading…
Add table
Reference in a new issue