Remove AlonzoTx JSON instances

Author: locallycompact

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

@@ -27,7 +27,9 @@ import Cardano.Ledger.Shelley.Rules qualified as Ledger
 import Cardano.Ledger.Shelley.UTxO qualified as Ledger
 import Codec.CBOR.Decoding qualified as CBOR
 import Codec.CBOR.Encoding qualified as CBOR
+import Codec.CBOR.Write qualified as CBOR.Write
 import Control.Monad (foldM)
+import Data.Aeson qualified as Aeson
 import Data.ByteString qualified as BS
 import Data.Default (def)
 import Data.Map.Strict qualified as Map
@@ -125,7 +127,7 @@ instance FromCBOR Tx where
         (pure . fromLedgerTx)
 
 instance ToJSON Tx where
-  toJSON = toJSON . toLedgerTx
+  toJSON = Aeson.String . decodeUtf8 . CBOR.Write.toStrictByteString . toCBOR
 
 instance FromJSON Tx where
   parseJSON = fmap fromLedgerTx . parseJSON