fromProposalProcedure: return StakeCredential

IntersectMBO · Nov 26, 2024 · 19771e7 · 19771e7
1 parent 4f81141
commit 19771e7
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs b/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs
@@ -15,7 +15,6 @@ module Cardano.Api.Governance.Actions.ProposalProcedure where
 import           Cardano.Api.Address
 import           Cardano.Api.Eon.ShelleyBasedEra
 import           Cardano.Api.HasTypeProxy
-import           Cardano.Api.Keys.Shelley
 import           Cardano.Api.ProtocolParameters
 import qualified Cardano.Api.ReexposeLedger as Ledger
 import           Cardano.Api.SerialiseCBOR
@@ -196,15 +195,12 @@ createProposalProcedure sbe nw dep cred govAct anchor =
 fromProposalProcedure
   :: ShelleyBasedEra era
   -> Proposal era
-  -> (L.Coin, Hash StakeKey, GovernanceAction era)
+  -> (L.Coin, StakeCredential, GovernanceAction era)
 fromProposalProcedure sbe (Proposal pp) =
   shelleyBasedEraConstraints
     sbe
     ( Gov.pProcDeposit pp
-    , case fromShelleyStakeCredential (L.raCredential (Gov.pProcReturnAddr pp)) of
-        StakeCredentialByKey keyhash -> keyhash
-        StakeCredentialByScript _scripthash ->
-          error "fromProposalProcedure TODO: Conway era script reward addresses not yet supported"
+    , fromShelleyStakeCredential (L.raCredential (Gov.pProcReturnAddr pp))
     , fromGovernanceAction (Gov.pProcGovAction pp)
     )