aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Compiler.hs
diff options
context:
space:
mode:
authorpacien2020-01-06 01:30:30 +0100
committerpacien2020-01-06 01:30:30 +0100
commit5f57fd4f21f7ecd4038ca6e66a4b89622cbcc9fc (patch)
tree6fd27c7fa4fc041781b437fea4344515d6c6f6bb /compiler/src/Compiler.hs
parentc5892200c648eb5d43278a126c5ae7bc91138796 (diff)
downloadldgallery-5f57fd4f21f7ecd4038ca6e66a4b89622cbcc9fc.tar.gz
compiler: do not invalidate cache on gallery settings modification
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)