cap gallery images to 2000px

This commit is contained in:
Rhiannon Morris 2022-05-16 10:25:16 +02:00
parent 40631ceac5
commit e7384bc1ed
5 changed files with 38 additions and 64 deletions

View file

@ -1,7 +1,7 @@
module Depend
(dependSingle, dependSingle',
dependGallery, dependGallery',
thumbFile, pageFile)
thumbFile, pageFile, bigFile)
where
import BuilderQQ hiding (CanBuild (..))
@ -34,7 +34,10 @@ dependSingle' yamlDir info prefix build nsfw =
dir = build </> prefix </> yamlDir
page = dir </> "index.html"
deps = unwords $ map (dir </>) $
thumbFile (thumbnail info) : map pageFile paths ++ paths ++ dls ++ extras
thumbFile (thumbnail info) :
map pageFile paths ++
map bigFile paths ++
dls ++ extras
dependGallery :: GalleryInfo
-> FilePath -- ^ index file