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, 2 insertions, 5 deletions
diff --git a/compiler/src/Compiler.hs b/compiler/src/Compiler.hs
index b84dedf..a347433 100644
--- a/compiler/src/Compiler.hs
+++ b/compiler/src/Compiler.hs
@@ -39,8 +39,7 @@ import Files
39 , isHidden 39 , isHidden
40 , nodeName 40 , nodeName
41 , filterDir 41 , filterDir
42 , ensureParentDir 42 , ensureParentDir )
43 , isOutdated )
44import Processors 43import Processors
45 ( itemFileProcessor, thumbnailFileProcessor 44 ( itemFileProcessor, thumbnailFileProcessor
46 , skipCached, withCached ) 45 , skipCached, withCached )
@@ -111,9 +110,7 @@ compileGallery inputDirPath outputDirPath rebuildAll =
111 let sourceTree = filterDir sourceFilter inputDir 110 let sourceTree = filterDir sourceFilter inputDir
112 inputTree <- readInputTree sourceTree 111 inputTree <- readInputTree sourceTree
113 112
114 invalidateCache <- isOutdated False inputGalleryConf outputIndex 113 let cache = if rebuildAll then skipCached else withCached
115 let cache = if invalidateCache || rebuildAll then skipCached else withCached
116
117 let itemProc = itemProcessor (pictureMaxResolution config) cache 114 let itemProc = itemProcessor (pictureMaxResolution config) cache
118 let thumbnailProc = thumbnailProcessor (thumbnailMaxResolution config) cache 115 let thumbnailProc = thumbnailProcessor (thumbnailMaxResolution config) cache
119 let galleryBuilder = buildGalleryTree itemProc thumbnailProc (tagsFromDirectories config) 116 let galleryBuilder = buildGalleryTree itemProc thumbnailProc (tagsFromDirectories config)