diff options
| author | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-29 18:51:48 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@gmail.com> | 2022-05-29 18:51:48 -0500 |
| commit | ff147c66282273833407b4be0af4cfce143a7903 (patch) | |
| tree | f8ff8eb3eac150d9d1e82c81f1c2c6faf24046da | |
| parent | 5128c855921f29f3b4f253b035461f76b2b2b8b0 (diff) | |
Make only description *value* optional
| -rw-r--r-- | src/Tomato/Data/Tomato.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Tomato/Data/Tomato.hs b/src/Tomato/Data/Tomato.hs index e74f965..8090e03 100644 --- a/src/Tomato/Data/Tomato.hs +++ b/src/Tomato/Data/Tomato.hs @@ -6,7 +6,7 @@ module Tomato.Data.Tomato import RIO -import Data.Aeson ((.:), (.:!)) +import Data.Aeson ((.:)) import Network.HTTP.Req (Url, Scheme (Https), useHttpsURI) import qualified Data.Aeson as Ae @@ -32,7 +32,7 @@ instance Ae.FromJSON Tomato where <*> o .: "height" <*> o .: "color" <*> o .: "blur_hash" - <*> o .:! "description" + <*> o .: "description" <*> o .: "urls" <*> o .: "links" |