ToJSON Tx: add "type" field

cardano-scaling · Jan 17, 2024 · bbbe559 · bbbe559
1 parent be48a81
commit bbbe559
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/hydra-node/src/Hydra/Ledger/Cardano.hs b/hydra-node/src/Hydra/Ledger/Cardano.hs
@@ -130,9 +130,12 @@ instance FromCBOR Tx where
 
 instance ToJSON Tx where
   toJSON tx =
+    let TextEnvelopeType envelopeType = textEnvelopeType (proxyToAsType (Proxy @Tx))
+    in
     object
       [ "cborHex" .= (Aeson.String $ decodeUtf8 $ Base16.encode $ serialiseToCBOR tx)
       , "txId" .= (txId tx)
+      , "type" .= envelopeType
       ]
 
 instance FromJSON Tx where