ngws
/
mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Sort recipe images

This commit is contained in:
Niels G. W. Serup 2024-11-16 21:28:09 +01:00
parent 67d4303548
commit c694baca81
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
byg/app/SiteGenerator.hs
View File

@ -30,6 +30,7 @@ handleRecipeDir recipesDir outputDir htmlTemplate indexName recipeSubDirs name =
imageFilenames <- imageFilenames <-
listDirectory dir listDirectory dir
& filterDepGenM (hasExtension (inject ["jpg"])) & filterDepGenM (hasExtension (inject ["jpg"]))
& onToken sort
htmlBodyImages <- forDepGenM imageFilenames $ \filename -> do htmlBodyImages <- forDepGenM imageFilenames $ \filename -> do
path <- joinPaths dir filename path <- joinPaths dir filename
path `copyTo` outputDir path `copyTo` outputDir