Replace ToJSON/FromJSON Tx with cbor encoding

Author: locallycompact

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

@@ -50,6 +50,7 @@ import Test.QuickCheck (
   suchThat,
   vectorOf,
  )
+import qualified Data.Aeson as Aeson
 
 -- * Ledger
 
@@ -125,10 +126,13 @@ instance FromCBOR Tx where
         (pure . fromLedgerTx)
 
 instance ToJSON Tx where
-  toJSON = toJSON . toLedgerTx
+  toJSON tx = Aeson.String $ decodeUtf8 @Text $ serialiseToCBOR tx
 
 instance FromJSON Tx where
-  parseJSON = fmap fromLedgerTx . parseJSON
+  parseJSON v = do
+    bytes <- encodeUtf8 @Text <$> parseJSON v
+    let cbor = deserialiseFromCBOR (proxyToAsType @Tx Proxy) bytes
+    either (fail . show) pure cbor
 
 instance Arbitrary Tx where
   -- TODO: shrinker!