Don't guard on txId when parsing from json

cardano-scaling · May 13, 2024 · e278c4c · e278c4c
1 parent 708f2aa
commit e278c4c
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/hydra-node/src/Hydra/Ledger/Cardano.hs b/hydra-node/src/Hydra/Ledger/Cardano.hs
@@ -152,13 +152,9 @@ instance FromJSON Tx where
       bytes <- decodeBase16 hexText
       case deserialiseFromCBOR (proxyToAsType (Proxy @Tx)) bytes of
         Left e -> fail $ show e
-        Right tx ->
-          (o .:? "txId") >>= \case
-            Nothing -> pure tx
-            Just txid' -> do
-              guard (txType tx == ty)
-              guard (txid' == txId tx)
-              pure tx
+        Right tx -> do
+          guard (txType tx == ty)
+          pure tx
 
 instance Arbitrary Tx where
   -- TODO: shrinker!