aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Compiler.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/src/Compiler.hs')
-rw-r--r--compiler/src/Compiler.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/src/Compiler.hs b/compiler/src/Compiler.hs
index b9f52e5..d0ec003 100644
--- a/compiler/src/Compiler.hs
+++ b/compiler/src/Compiler.hs
@@ -43,7 +43,7 @@ import Files
43 , ensureParentDir 43 , ensureParentDir
44 , isOutdated ) 44 , isOutdated )
45import Processors 45import Processors
46 ( dirFileProcessor, itemFileProcessor, thumbnailFileProcessor 46 ( itemFileProcessor, thumbnailFileProcessor
47 , skipCached, withCached ) 47 , skipCached, withCached )
48 48
49 49
@@ -111,7 +111,7 @@ compileGallery inputDirPath outputDirPath rebuildAll =
111 111
112 let itemProc = itemProcessor (pictureMaxResolution config) cache 112 let itemProc = itemProcessor (pictureMaxResolution config) cache
113 let thumbnailProc = thumbnailProcessor (thumbnailMaxResolution config) cache 113 let thumbnailProc = thumbnailProcessor (thumbnailMaxResolution config) cache
114 let galleryBuilder = buildGalleryTree dirProcessor itemProc thumbnailProc (implicitDirectoryTag config) 114 let galleryBuilder = buildGalleryTree itemProc thumbnailProc (implicitDirectoryTag config)
115 resources <- galleryBuilder (galleryName config) inputTree 115 resources <- galleryBuilder (galleryName config) inputTree
116 116
117 galleryCleanupResourceDir resources outputDirPath 117 galleryCleanupResourceDir resources outputDirPath
@@ -123,7 +123,6 @@ compileGallery inputDirPath outputDirPath rebuildAll =
123 outputIndex = outputDirPath </> indexFile 123 outputIndex = outputDirPath </> indexFile
124 outputViewerConf = outputDirPath </> viewerConfFile 124 outputViewerConf = outputDirPath </> viewerConfFile
125 125
126 dirProcessor = dirFileProcessor inputDirPath outputDirPath itemsDir
127 itemProcessor maxRes cache = 126 itemProcessor maxRes cache =
128 itemFileProcessor maxRes cache inputDirPath outputDirPath itemsDir 127 itemFileProcessor maxRes cache inputDirPath outputDirPath itemsDir
129 thumbnailProcessor thumbRes cache = 128 thumbnailProcessor thumbRes cache =