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

Sort recipe images

Browse Source
This commit is contained in:
Niels G. W. Serup
2024-11-16 21:28:09 +01:00
parent 67d4303548
commit c694baca81
1 changed files with 1 additions and 0 deletions
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