Fix JSON encoding for transaction metadata

Fixes #337.
CardanoSolutions · Oct 6, 2023 · 02adb6c · 02adb6c
1 parent deed380
commit 02adb6c
Show file tree

Hide file tree

Showing 46 changed files with 49 additions and 49 deletions.
diff --git a/server/src/Ogmios/Data/Json/Shelley.hs b/server/src/Ogmios/Data/Json/Shelley.hs
@@ -430,16 +430,16 @@ encodeMetadataBlob opts =
         Sh.List xs ->
             encodeList identity <$> traverse tryEncodeMetadatumAsJson xs
         Sh.Map xs ->
-            encodeList identity <$> traverse tryEncodeKeyPairAsJson xs
+            encodeObject <$> foldMap tryEncodeKeyPairAsJson xs
 
-    tryEncodeKeyPairAsJson :: (Sh.Metadatum, Sh.Metadatum) -> StrictMaybe Json
+    tryEncodeKeyPairAsJson :: (Sh.Metadatum, Sh.Metadatum) -> StrictMaybe Series
     tryEncodeKeyPairAsJson = \case
         (Sh.I n, v) -> do
             json <- tryEncodeMetadatumAsJson v
-            pure (encodeObject (show n .= json))
+            pure (show n .= json)
         (Sh.S t, v) -> do
             json <- tryEncodeMetadatumAsJson v
-            pure (encodeObject (t .= json))
+            pure (t .= json)
         _ ->
             SNothing
 

diff --git a/server/test/vectors/NextBlockResponse/007.json b/server/test/vectors/NextBlockResponse/007.json
diff --git a/server/test/vectors/NextBlockResponse/008.json b/server/test/vectors/NextBlockResponse/008.json
diff --git a/server/test/vectors/NextBlockResponse/009.json b/server/test/vectors/NextBlockResponse/009.json
diff --git a/server/test/vectors/NextBlockResponse/026.json b/server/test/vectors/NextBlockResponse/026.json
diff --git a/server/test/vectors/NextBlockResponse/032.json b/server/test/vectors/NextBlockResponse/032.json
diff --git a/server/test/vectors/NextBlockResponse/037.json b/server/test/vectors/NextBlockResponse/037.json