diff options
Diffstat (limited to 'compiler/src/Config.hs')
-rw-r--r-- | compiler/src/Config.hs | 6 |
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 | ||
43 | data CompilerConfig = CompilerConfig | 43 | data 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 | ||
48 | instance FromJSON CompilerConfig where | 49 | instance 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 | ||