From 19771e7e934da25a26cb26b3502a90ef82f45568 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= Date: Mon, 25 Nov 2024 16:18:20 +0100 Subject: [PATCH] fromProposalProcedure: return StakeCredential --- .../Cardano/Api/Governance/Actions/ProposalProcedure.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs b/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs index fb4ff3b93..a5ac56810 100644 --- 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) )