Rename constructors in AnyProtocolUpdate

IntersectMBO · Oct 3, 2024 · 1399d18 · 1399d18
1 parent 079aaf2
commit 1399d18
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Tx/Compatible.hs b/cardano-api/internal/Cardano/Api/Tx/Compatible.hs
@@ -31,11 +31,11 @@ import           Data.Set (fromList)
 import           Lens.Micro
 
 data AnyProtocolUpdate era where
-  ShelleyToBabbageProtocolUpdate
+  ProtocolUpdate
     :: ShelleyToBabbageEra era
     -> UpdateProposal
     -> AnyProtocolUpdate era
-  ConwayEraOnwardsProtocolUpdate
+  ProposalProcedure
     :: ConwayEraOnwards era
     -> TxProposalProcedures BuildTx era
     -> AnyProtocolUpdate era
@@ -64,7 +64,7 @@ createCompatibleSignedTx
 createCompatibleSignedTx sbeF ins outs witnesses txFee' anyProtocolUpdate anyVote =
   shelleyBasedEraConstraints sbeF $ do
     tx <- case anyProtocolUpdate of
-      ShelleyToBabbageProtocolUpdate shelleyToBabbageEra updateProposal -> do
+      ProtocolUpdate shelleyToBabbageEra updateProposal -> do
         let sbe = shelleyToBabbageEraToShelleyBasedEra shelleyToBabbageEra
 
         ledgerPParamsUpdate <- toLedgerUpdate sbe updateProposal
@@ -83,7 +83,7 @@ createCompatibleSignedTx sbeF ins outs witnesses txFee' anyProtocolUpdate anyVot
             finalTx = L.mkBasicTx txbody & L.witsTxL .~ shelleyBasedEraConstraints sbe allShelleyToBabbageWitnesses
 
         return $ ShelleyTx sbe finalTx
-      ConwayEraOnwardsProtocolUpdate conwayOnwards proposalProcedures -> do
+      ProposalProcedure conwayOnwards proposalProcedures -> do
         let sbe = conwayEraOnwardsToShelleyBasedEra conwayOnwards
             proposals = convProposalProcedures proposalProcedures
             apiScriptWitnesses = scriptWitnessesProposing proposalProcedures