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