fix bug in compressed maybe arrays

input-output-hk · Mar 21, 2023 · c8f4889 · c8f4889
1 parent 5ae99ba
commit c8f4889
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/marlowe-runtime/tx-api/Language/Marlowe/Runtime/Transaction/Api.hs b/marlowe-runtime/tx-api/Language/Marlowe/Runtime/Transaction/Api.hs
@@ -112,7 +112,7 @@ cip25CompressedArray :: FromJSON a => Aeson.Object -> Aeson.Types.Key -> Aeson.T
 cip25CompressedArray obj key = (obj .: key) <|> fmap (:[]) (obj .: key)
 
 cip25CompressedMaybeArray :: FromJSON a => Aeson.Object -> Aeson.Types.Key -> Aeson.Types.Parser [a]
-cip25CompressedMaybeArray obj key = do x <- obj .:! key; pure (Maybe.maybeToList x) <|> obj .:! key .!= []
+cip25CompressedMaybeArray obj key = cip25CompressedArray obj key <|> pure []
 
 instance Aeson.FromJSON CIP25MetadataFileDetails where
   parseJSON = Aeson.withObject "CIP25MetadataFileDetails" \x ->