diff options
| -rw-r--r-- | src/Tomato/Data/Tomato.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Tomato/Data/Tomato.hs b/src/Tomato/Data/Tomato.hs index 4b75adf..e74f965 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 @@ -20,7 +20,7 @@ data Tomato = Tomato , height :: !Word , color :: !Text , blur_hash :: !Text - , description :: !Text + , description :: !(Maybe Text) , urls :: !Urls , links :: !Links } deriving Show @@ -32,7 +32,7 @@ instance Ae.FromJSON Tomato where <*> o .: "height" <*> o .: "color" <*> o .: "blur_hash" - <*> o .: "description" + <*> o .:! "description" <*> o .: "urls" <*> o .: "links" |