fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

Versionbump: Changes due to JSON type change.

Browse Source
This commit is contained in:
Stephan Barth 2024-02-22 05:00:07 +01:00
parent 656c1de2cc
commit 130c703e0a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Model/Types/Avs.hs
View File

@ -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)