Skip to content

Commit 87dbbe6

Browse files
Remove AlonzoTx JSON instances
1 parent 3c8f217 commit 87dbbe6

File tree

2 files changed

+10
-396
lines changed

2 files changed

+10
-396
lines changed

hydra-node/src/Hydra/Ledger/Cardano.hs

+3-1
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,9 @@ import Cardano.Ledger.Shelley.Rules qualified as Ledger
2727
import Cardano.Ledger.Shelley.UTxO qualified as Ledger
2828
import Codec.CBOR.Decoding qualified as CBOR
2929
import Codec.CBOR.Encoding qualified as CBOR
30+
import Codec.CBOR.Write qualified as CBOR.Write
3031
import Control.Monad (foldM)
32+
import Data.Aeson qualified as Aeson
3133
import Data.ByteString qualified as BS
3234
import Data.Default (def)
3335
import Data.Map.Strict qualified as Map
@@ -125,7 +127,7 @@ instance FromCBOR Tx where
125127
(pure . fromLedgerTx)
126128

127129
instance ToJSON Tx where
128-
toJSON = toJSON . toLedgerTx
130+
toJSON = Aeson.String . decodeUtf8 . CBOR.Write.toStrictByteString . toCBOR
129131

130132
instance FromJSON Tx where
131133
parseJSON = fmap fromLedgerTx . parseJSON

0 commit comments

Comments
 (0)