diff --git a/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs b/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs index 68e54f0048..3ebfd8ce12 100644 --- a/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs +++ b/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs @@ -51,6 +51,7 @@ data GovernanceAction era | ProposeNewConstitution (StrictMaybe (Ledger.GovPurposeId Ledger.ConstitutionPurpose (ShelleyLedgerEra era))) (Ledger.Anchor StandardCrypto) + (StrictMaybe (Shelley.ScriptHash StandardCrypto)) | ProposeNewCommittee (StrictMaybe (Ledger.GovPurposeId Ledger.CommitteePurpose (ShelleyLedgerEra era))) [Hash CommitteeColdKey] -- ^ Old constitutional committee @@ -76,10 +77,10 @@ toGovernanceAction sbe = shelleyBasedEraConstraints sbe $ \case MotionOfNoConfidence prevGovId -> Gov.NoConfidence prevGovId - ProposeNewConstitution prevGovAction anchor -> + ProposeNewConstitution prevGovAction anchor mConstitutionScriptHash -> Gov.NewConstitution prevGovAction Gov.Constitution { Gov.constitutionAnchor = anchor - , Gov.constitutionScript = SNothing -- TODO: Conway era + , Gov.constitutionScript = mConstitutionScriptHash -- TODO: Conway era } ProposeNewCommittee prevGovId oldCommitteeMembers newCommitteeMembers quor -> Gov.UpdateCommittee @@ -109,7 +110,9 @@ fromGovernanceAction = \case Gov.NoConfidence prevGovId -> MotionOfNoConfidence prevGovId Gov.NewConstitution prevGovId constitution -> - ProposeNewConstitution prevGovId $ Gov.constitutionAnchor constitution + ProposeNewConstitution prevGovId + (Gov.constitutionAnchor constitution) + (Gov.constitutionScript constitution) Gov.ParameterChange prevGovId pparams govPolicy -> UpdatePParams prevGovId pparams govPolicy Gov.HardForkInitiation prevGovId pVer ->