diff options
Diffstat (limited to 'compiler/src/Config.hs')
-rw-r--r-- | compiler/src/Config.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/src/Config.hs b/compiler/src/Config.hs index d670aae..4446c14 100644 --- a/compiler/src/Config.hs +++ b/compiler/src/Config.hs | |||
@@ -41,6 +41,7 @@ data CompilerConfig = CompilerConfig | |||
41 | , tagsFromDirectories :: Int | 41 | , tagsFromDirectories :: Int |
42 | , thumbnailMaxResolution :: Resolution | 42 | , thumbnailMaxResolution :: Resolution |
43 | , pictureMaxResolution :: Maybe Resolution | 43 | , pictureMaxResolution :: Maybe Resolution |
44 | , jpegExportQuality :: Int | ||
44 | } deriving (Generic, Show) | 45 | } deriving (Generic, Show) |
45 | 46 | ||
46 | instance FromJSON CompilerConfig where | 47 | instance FromJSON CompilerConfig where |
@@ -53,6 +54,7 @@ instance FromJSON CompilerConfig where | |||
53 | <*> v .:? "tagsFromDirectories" .!= 0 | 54 | <*> v .:? "tagsFromDirectories" .!= 0 |
54 | <*> v .:? "thumbnailMaxResolution" .!= (Resolution 400 400) | 55 | <*> v .:? "thumbnailMaxResolution" .!= (Resolution 400 400) |
55 | <*> v .:? "pictureMaxResolution" | 56 | <*> v .:? "pictureMaxResolution" |
57 | <*> v .:? "jpegExportQuality" .!= 80 | ||
56 | 58 | ||
57 | 59 | ||
58 | data GalleryConfig = GalleryConfig | 60 | data GalleryConfig = GalleryConfig |