add download files to dependencies??

This commit is contained in:
rhiannon morris 2025-01-31 18:37:39 +01:00
parent a2e974ca51
commit 4d7c521070

View file

@ -7,7 +7,7 @@ where
import BuilderQQ hiding (CanBuild (..))
import Info hiding (Text)
import Data.Maybe (fromMaybe, mapMaybe)
import Data.Maybe (fromMaybe)
import Data.Text.Lazy (Text)
import Data.Foldable
import System.FilePath
@ -32,7 +32,6 @@ dependSingle' yamlDir indexFile info prefix build nsfw =
maybe [] (toList . allImages) $
if nsfw then Just $ info.images else sfwImages info
dls = mapMaybe (.download) images
extras = info.extras
dir = build </> prefix </> yamlDir
@ -41,7 +40,7 @@ dependSingle' yamlDir indexFile info prefix build nsfw =
thumbFile (thumbnail info) :
map pageFile images ++
map bigFile images ++
dls ++ extras
extras
dependGallery :: GalleryInfo
-> FilePath -- ^ index file