diff --git a/src/Model/Types/Avs.hs b/src/Model/Types/Avs.hs index 997fa6588..3aa3da59e 100644 --- a/src/Model/Types/Avs.hs +++ b/src/Model/Types/Avs.hs @@ -44,7 +44,7 @@ o .:?~ key = o .: key <|> maybe empty parseJSON go -- Like (.:?) but maps Just null to Nothing, ie. Nothing instead of Just "" -(.:?!) :: (Canonical (Maybe a), FromJSON a) => Object -> Text -> Parser (Maybe a) +(.:?!) :: (Canonical (Maybe a), FromJSON a) => Object -> Data.Aeson.Types.Key -> Parser (Maybe a) (.:?!) o k = canonical <$> (o .:? k)