aboutsummaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
Diffstat (limited to 'compiler')
-rw-r--r--compiler/src/Compiler.hs2
-rw-r--r--compiler/src/Config.hs4
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/src/Compiler.hs b/compiler/src/Compiler.hs
index 0132b1a..4f2093b 100644
--- a/compiler/src/Compiler.hs
+++ b/compiler/src/Compiler.hs
@@ -106,7 +106,7 @@ compileGallery inputDirPath outputDirPath rebuildAll =
106 let cache = if invalidateCache || rebuildAll then skipCached else withCached 106 let cache = if invalidateCache || rebuildAll then skipCached else withCached
107 107
108 let itemProc = itemProcessor (pictureMaxResolution config) cache 108 let itemProc = itemProcessor (pictureMaxResolution config) cache
109 let thumbnailProc = thumbnailProcessor (thumbnailResolution config) cache 109 let thumbnailProc = thumbnailProcessor (thumbnailMaxResolution config) cache
110 let galleryBuilder = buildGalleryTree dirProcessor itemProc thumbnailProc (implicitDirectoryTag config) 110 let galleryBuilder = buildGalleryTree dirProcessor itemProc thumbnailProc (implicitDirectoryTag config)
111 resources <- galleryBuilder (galleryName config) inputTree 111 resources <- galleryBuilder (galleryName config) inputTree
112 112
diff --git a/compiler/src/Config.hs b/compiler/src/Config.hs
index ca3259f..9bb2860 100644
--- a/compiler/src/Config.hs
+++ b/compiler/src/Config.hs
@@ -44,7 +44,7 @@ data CompilerConfig = CompilerConfig
44 { galleryName :: String 44 { galleryName :: String
45 , ignoreFiles :: String 45 , ignoreFiles :: String
46 , implicitDirectoryTag :: Bool 46 , implicitDirectoryTag :: Bool
47 , thumbnailResolution :: Resolution 47 , thumbnailMaxResolution :: Resolution
48 , pictureMaxResolution :: Maybe Resolution 48 , pictureMaxResolution :: Maybe Resolution
49 } deriving (Generic, Show) 49 } deriving (Generic, Show)
50 50
@@ -53,7 +53,7 @@ instance FromJSON CompilerConfig where
53 <$> v .:? "galleryName" .!= "Gallery" 53 <$> v .:? "galleryName" .!= "Gallery"
54 <*> v .:? "ignoreFiles" .!= ".^" 54 <*> v .:? "ignoreFiles" .!= ".^"
55 <*> v .:? "implicitDirectoryTag" .!= False 55 <*> v .:? "implicitDirectoryTag" .!= False
56 <*> v .:? "thumbnailResolution" .!= (Resolution 400 400) 56 <*> v .:? "thumbnailMaxResolution" .!= (Resolution 400 400)
57 <*> v .:? "pictureMaxResolution" 57 <*> v .:? "pictureMaxResolution"
58 58
59 59