From 130c703e0ae7c4328ac0cb1a9333f773eb27c883 Mon Sep 17 00:00:00 2001 From: Stephan Barth Date: Thu, 22 Feb 2024 05:00:07 +0100 Subject: [PATCH] Versionbump: Changes due to JSON type change. --- src/Model/Types/Avs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)