From fe8735197664a8a432edcf629dc645bc8bddb995 Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Wed, 25 Sep 2024 23:14:14 +0200 Subject: [PATCH] Only unzip what we use --- byg/src/SiteGenerator.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/byg/src/SiteGenerator.hs b/byg/src/SiteGenerator.hs index 833b13b..24c7c21 100644 --- a/byg/src/SiteGenerator.hs +++ b/byg/src/SiteGenerator.hs @@ -6,7 +6,7 @@ import DependencyGenerator handleRecipeDir :: Token FilePath -> Token Template -> Token FilePath -> DepGenM () handleRecipeDir outputDir template dir = do dirContents <- listDirectory dir - (bases, exts) <- unzipDepGenM (mapDepGenM fileComponents dirContents) + exts <- unzipSndDepGenM (mapDepGenM fileComponents dirContents) areImageFilenames <- mapDepGenM isImageExtension exts imageFilenames <- filterDepGenM areImageFilenames dirContents convertedImageFilenames <- mapDepGenM convertedImageFilename imageFilenames