From 04abb3eb24a4deafe125be0eb23e2786c642e66b Mon Sep 17 00:00:00 2001 From: Peter Becich Date: Sat, 25 Nov 2023 16:29:10 -0800 Subject: [PATCH] replace `"value"` with `"contents"` for Aeson compatibility --- src/Data/Argonaut/Decode/Decoders.purs | 2 +- src/Data/Argonaut/Encode/Encoders.purs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Data/Argonaut/Decode/Decoders.purs b/src/Data/Argonaut/Decode/Decoders.purs index cf3c0ca..ff06669 100644 --- a/src/Data/Argonaut/Decode/Decoders.purs +++ b/src/Data/Argonaut/Decode/Decoders.purs @@ -66,7 +66,7 @@ decodeEither decodeEither decoderA decoderB json = lmap (Named "Either") $ decodeJObject json >>= \obj -> do tag <- note (AtKey "tag" MissingValue) $ FO.lookup "tag" obj - val <- note (AtKey "value" MissingValue) $ FO.lookup "value" obj + val <- note (AtKey "contents" MissingValue) $ FO.lookup "contents" obj case toString tag of Just "Right" -> Right <$> decoderB val Just "Left" -> Left <$> decoderA val diff --git a/src/Data/Argonaut/Encode/Encoders.purs b/src/Data/Argonaut/Encode/Encoders.purs index aad0596..0837468 100644 --- a/src/Data/Argonaut/Encode/Encoders.purs +++ b/src/Data/Argonaut/Encode/Encoders.purs @@ -42,7 +42,7 @@ encodeEither encoderA encoderB = either (obj encoderA "Left") (obj encoderB "Rig obj encoder tag x = fromObject $ FO.fromFoldable - $ Tuple "tag" (fromString tag) : Tuple "value" (encoder x) : Nil + $ Tuple "tag" (fromString tag) : Tuple "contents" (encoder x) : Nil encodeUnit :: Unit -> Json encodeUnit = const jsonNull