From ff147c66282273833407b4be0af4cfce143a7903 Mon Sep 17 00:00:00 2001 From: Jacques Comeaux Date: Sun, 29 May 2022 18:51:48 -0500 Subject: Make only description *value* optional --- src/Tomato/Data/Tomato.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Tomato/Data/Tomato.hs') 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" -- cgit v1.2.3