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.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/src/Compiler.hs b/compiler/src/Compiler.hs
index 5a7632d..92e6ed6 100644
--- a/compiler/src/Compiler.hs
+++ b/compiler/src/Compiler.hs
@@ -43,9 +43,8 @@ import Files
43 , nodeName 43 , nodeName
44 , filterDir 44 , filterDir
45 , ensureParentDir ) 45 , ensureParentDir )
46import Processors 46import ItemProcessors (itemFileProcessor, thumbnailFileProcessor)
47 ( itemFileProcessor, thumbnailFileProcessor 47import Caching (skipCache, withCache)
48 , skipCached, withCached )
49 48
50 49
51defaultGalleryConf :: String 50defaultGalleryConf :: String
@@ -127,7 +126,7 @@ compileGallery configPath inputDirPath outputDirPath outputIndexPath excludedDir
127 inputTree <- readInputTree sourceTree 126 inputTree <- readInputTree sourceTree
128 let curatedInputTree = filterInputTree (inputTreeFilter config) inputTree 127 let curatedInputTree = filterInputTree (inputTreeFilter config) inputTree
129 128
130 let cache = if rebuildAll then skipCached else withCached 129 let cache = if rebuildAll then skipCache else withCache
131 let itemProc = itemProcessor config cache 130 let itemProc = itemProcessor config cache
132 let thumbnailProc = thumbnailProcessor config cache 131 let thumbnailProc = thumbnailProcessor config cache
133 let galleryBuilder = buildGalleryTree itemProc thumbnailProc (tagsFromDirectories config) 132 let galleryBuilder = buildGalleryTree itemProc thumbnailProc (tagsFromDirectories config)