Fix Byron TxOut JSON rendering

IntersectMBO · May 13, 2021 · 549e82c · 549e82c
1 parent 04ae947
commit 549e82c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/cardano-api/src/Cardano/Api/TxBody.hs b/cardano-api/src/Cardano/Api/TxBody.hs
@@ -286,7 +286,9 @@ instance IsCardanoEra era => ToJSON (TxOut era) where
     case addrType of
       ByronAddressInAnyEra ->
         let hexAddr = serialiseToRawBytesHexText addr
-        in object [ hexAddr .= toJSON val ]
+        in object [ "address" .= hexAddr
+                  , "value" .= toJSON val
+                  ]
       ShelleyAddressInEra sbe ->
         case sbe of
           ShelleyBasedEraShelley ->