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