diff options
| author | pacien | 2020-06-13 00:06:18 +0200 |
|---|---|---|
| committer | pacien | 2020-06-13 00:06:18 +0200 |
| commit | 00c6216259d8a7b131307953ba5000d2b5dc564b (patch) | |
| tree | 14b9f17b13ca811277f349c4457d82547406d78d /compiler/src/Config.hs | |
| parent | 5f7d4fbfc2ec4540d24bc8bf00927c016338c348 (diff) | |
| download | ldgallery-00c6216259d8a7b131307953ba5000d2b5dc564b.tar.gz | |
compiler: trivial code simplifications
Following HLint's advice.
Diffstat (limited to 'compiler/src/Config.hs')
| -rw-r--r-- | compiler/src/Config.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/src/Config.hs b/compiler/src/Config.hs index 0ae0fa1..3c38a17 100644 --- a/compiler/src/Config.hs +++ b/compiler/src/Config.hs | |||
| @@ -73,8 +73,8 @@ instance FromJSON GalleryConfig where | |||
| 73 | <*> v .:? "includedTags" .!= ["*"] | 73 | <*> v .:? "includedTags" .!= ["*"] |
| 74 | <*> v .:? "excludedTags" .!= [] | 74 | <*> v .:? "excludedTags" .!= [] |
| 75 | <*> v .:? "tagCategories" .!= [] | 75 | <*> v .:? "tagCategories" .!= [] |
| 76 | <*> v .:? "tagsFromDirectories" .!= (TagsFromDirectoriesConfig 0 "") | 76 | <*> v .:? "tagsFromDirectories" .!= TagsFromDirectoriesConfig 0 "" |
| 77 | <*> v .:? "thumbnailMaxResolution" .!= (Resolution 400 300) | 77 | <*> v .:? "thumbnailMaxResolution" .!= Resolution 400 300 |
| 78 | <*> v .:? "pictureMaxResolution" | 78 | <*> v .:? "pictureMaxResolution" |
| 79 | 79 | ||
| 80 | readConfig :: FileName -> IO GalleryConfig | 80 | readConfig :: FileName -> IO GalleryConfig |