From 00c6216259d8a7b131307953ba5000d2b5dc564b Mon Sep 17 00:00:00 2001 From: pacien Date: Sat, 13 Jun 2020 00:06:18 +0200 Subject: compiler: trivial code simplifications Following HLint's advice. --- compiler/src/Config.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'compiler/src/Config.hs') 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 <*> v .:? "includedTags" .!= ["*"] <*> v .:? "excludedTags" .!= [] <*> v .:? "tagCategories" .!= [] - <*> v .:? "tagsFromDirectories" .!= (TagsFromDirectoriesConfig 0 "") - <*> v .:? "thumbnailMaxResolution" .!= (Resolution 400 300) + <*> v .:? "tagsFromDirectories" .!= TagsFromDirectoriesConfig 0 "" + <*> v .:? "thumbnailMaxResolution" .!= Resolution 400 300 <*> v .:? "pictureMaxResolution" readConfig :: FileName -> IO GalleryConfig -- cgit v1.2.3