diff options
Diffstat (limited to 'compiler/src/Compiler.hs')
-rw-r--r-- | compiler/src/Compiler.hs | 7 |
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 ) | ||
44 | import Processors | 43 | import 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) |