Sort recipe images

byg/app/SiteGenerator.hs

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