Patch for signed transactions that are really not

IntersectMBO · May 20, 2024 · c74c589 · c74c589
1 parent d4d32e4
commit c74c589
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/cardano-api/internal/Cardano/Api/SerialiseLedgerCddl.hs b/cardano-api/internal/Cardano/Api/SerialiseLedgerCddl.hs
@@ -41,7 +41,7 @@ import           Cardano.Api.IO
 import           Cardano.Api.Pretty
 import           Cardano.Api.SerialiseTextEnvelope (TextEnvelope (..),
                    TextEnvelopeDescr (TextEnvelopeDescr), TextEnvelopeError (..),
-                   deserialiseFromTextEnvelope, serialiseToTextEnvelope)
+                   deserialiseFromTextEnvelope, serialiseToTextEnvelope, HasTextEnvelope (textEnvelopeType))
 import           Cardano.Api.Tx.Sign
 import           Cardano.Api.Utils
 
@@ -129,12 +129,19 @@ deserialiseTxLedgerCddl :: forall era .
      ShelleyBasedEra era
   -> TextEnvelope
   -> Either TextEnvelopeError (Tx era)
-deserialiseTxLedgerCddl era = shelleyBasedEraConstraints era $
-  deserialiseFromTextEnvelope asType
+deserialiseTxLedgerCddl era te =
+  shelleyBasedEraConstraints era $
+  case deserialiseFromTextEnvelope asType te of
+    Left (TextEnvelopeTypeError _ actualType) | textEnvelopeType asTxBodyType == actualType ->
+      makeSignedTransaction [] <$> deserialiseFromTextEnvelope asTxBodyType te
+    other -> other
   where
     asType :: AsType (Tx era)
     asType = shelleyBasedEraConstraints era $ proxyToAsType Proxy
 
+    asTxBodyType :: AsType (TxBody era)
+    asTxBodyType = shelleyBasedEraConstraints era $ proxyToAsType Proxy
+
 writeByronTxFileTextEnvelopeCddl
   :: File content Out
   -> Byron.ATxAux ByteString