Merge pull request #2846 from input-output-hk/anviking/ADP-1094/alonz…

…o-external-tx Add missing Alonzo-case in decodeSignedTx
cardano-foundation · Aug 26, 2021 · 6045d20 · 6045d20
2 parents cea3183 + 82d4afc
commit 6045d20
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Transaction.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Transaction.hs
@@ -608,7 +608,14 @@ _decodeSignedTx era bytes = do
                 Left decodeErr ->
                     Left $ ErrDecodeSignedTxWrongPayload (T.pack $ show decodeErr)
 
-        _ ->
+        AnyCardanoEra AlonzoEra ->
+            case Cardano.deserialiseFromCBOR (Cardano.AsTx Cardano.AsAlonzoEra) bytes of
+                Right txValid ->
+                    pure $ sealShelleyTx fromAlonzoTx txValid
+                Left decodeErr ->
+                    Left $ ErrDecodeSignedTxWrongPayload (T.pack $ show decodeErr)
+
+        AnyCardanoEra ByronEra ->
             Left ErrDecodeSignedTxNotSupported
 
 txConstraints :: ProtocolParameters -> TxWitnessTag -> TxConstraints