aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Config.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/src/Config.hs')
-rw-r--r--compiler/src/Config.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/src/Config.hs b/compiler/src/Config.hs
index fe981c3..044a155 100644
--- a/compiler/src/Config.hs
+++ b/compiler/src/Config.hs
@@ -41,13 +41,15 @@ import Processors (Resolution(..))
41 41
42 42
43data CompilerConfig = CompilerConfig 43data CompilerConfig = CompilerConfig
44 { thumbnailResolution :: Resolution 44 { galleryName :: String
45 , thumbnailResolution :: Resolution
45 , pictureMaxResolution :: Maybe Resolution 46 , pictureMaxResolution :: Maybe Resolution
46 } deriving (Generic, Show) 47 } deriving (Generic, Show)
47 48
48instance FromJSON CompilerConfig where 49instance FromJSON CompilerConfig where
49 parseJSON = withObject "CompilerConfig" $ \v -> CompilerConfig 50 parseJSON = withObject "CompilerConfig" $ \v -> CompilerConfig
50 <$> v .:? "thumbnailResolution" .!= (Resolution 400 400) 51 <$> v .:? "galleryName" .!= "Gallery"
52 <*> v .:? "thumbnailResolution" .!= (Resolution 400 400)
51 <*> v .:? "pictureMaxResolution" 53 <*> v .:? "pictureMaxResolution"
52 54
53 55