Rename fromLedgerTxUpdateProposal to maybeFromLedgerTxUpdateProposal …

…to more clearly indicate it may not return a value
IntersectMBO · Sep 26, 2023 · ce4af0a · ce4af0a
1 parent 6218c84
commit ce4af0a
Showing 1 changed file with 15 additions and 15 deletions.
diff --git a/cardano-api/internal/Cardano/Api/TxBody.hs b/cardano-api/internal/Cardano/Api/TxBody.hs
@@ -2496,19 +2496,19 @@ fromLedgerTxBody
   -> TxBodyContent ViewTx era
 fromLedgerTxBody sbe scriptValidity body scriptdata mAux =
     TxBodyContent
-      { txIns                 = fromLedgerTxIns               sbe body
-      , txInsCollateral       = fromLedgerTxInsCollateral     sbe body
-      , txInsReference        = fromLedgerTxInsReference      sbe body
-      , txOuts                = fromLedgerTxOuts              sbe body scriptdata
-      , txTotalCollateral     = fromLedgerTxTotalCollateral   sbe body
-      , txReturnCollateral    = fromLedgerTxReturnCollateral  sbe body
-      , txFee                 = fromLedgerTxFee               sbe body
-      , txValidityRange       = fromLedgerTxValidityRange     sbe body
-      , txWithdrawals         = fromLedgerTxWithdrawals       sbe body
-      , txCertificates        = fromLedgerTxCertificates      sbe body
-      , txUpdateProposal      = fromLedgerTxUpdateProposal    sbe body
-      , txMintValue           = fromLedgerTxMintValue         sbe body
-      , txExtraKeyWits        = fromLedgerTxExtraKeyWitnesses sbe body
+      { txIns                 = fromLedgerTxIns                 sbe body
+      , txInsCollateral       = fromLedgerTxInsCollateral       sbe body
+      , txInsReference        = fromLedgerTxInsReference        sbe body
+      , txOuts                = fromLedgerTxOuts                sbe body scriptdata
+      , txTotalCollateral     = fromLedgerTxTotalCollateral     sbe body
+      , txReturnCollateral    = fromLedgerTxReturnCollateral    sbe body
+      , txFee                 = fromLedgerTxFee                 sbe body
+      , txValidityRange       = fromLedgerTxValidityRange       sbe body
+      , txWithdrawals         = fromLedgerTxWithdrawals         sbe body
+      , txCertificates        = fromLedgerTxCertificates        sbe body
+      , txUpdateProposal      = maybeFromLedgerTxUpdateProposal sbe body
+      , txMintValue           = fromLedgerTxMintValue           sbe body
+      , txExtraKeyWits        = fromLedgerTxExtraKeyWitnesses   sbe body
       , txProtocolParams      = ViewTx
       , txMetadata
       , txAuxScripts
@@ -3010,11 +3010,11 @@ fromLedgerTxCertificates sbe body =
       then TxCertificatesNone
       else TxCertificates sbe (map (fromShelleyCertificate sbe) $ toList certificates) ViewTx
 
-fromLedgerTxUpdateProposal :: ()
+maybeFromLedgerTxUpdateProposal :: ()
   => ShelleyBasedEra era
   -> Ledger.TxBody (ShelleyLedgerEra era)
   -> TxUpdateProposal era
-fromLedgerTxUpdateProposal sbe body =
+maybeFromLedgerTxUpdateProposal sbe body =
   caseShelleyToBabbageOrConwayEraOnwards
     (\w ->
       case body ^. L.updateTxBodyL of