Merge pull request #421 from IntersectMBO/ch/support-drep-update

Support constructing DRep update certificates
IntersectMBO · Feb 7, 2024 · 2119697 · 2119697
2 parents f207b42 + 4607fb5
commit 2119697
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Certificate.hs b/cardano-api/internal/Cardano/Api/Certificate.hs
@@ -37,10 +37,12 @@ module Cardano.Api.Certificate (
     CommitteeHotKeyAuthorizationRequirements(..),
     DRepRegistrationRequirements(..),
     DRepUnregistrationRequirements(..),
+    DRepUpdateRequirements(..),
     makeCommitteeColdkeyResignationCertificate,
     makeCommitteeHotKeyAuthorizationCertificate,
     makeDrepRegistrationCertificate,
     makeDrepUnregistrationCertificate,
+    makeDrepUpdateCertificate,
 
     makeStakeAddressAndDRepDelegationCertificate,
 
@@ -466,6 +468,21 @@ makeStakeAddressAndDRepDelegationCertificate w cred delegatee deposit =
         delegatee
         (toShelleyLovelace deposit)
 
+data DRepUpdateRequirements era where
+  DRepUpdateRequirements
+    :: ConwayEraOnwards era
+    -> Ledger.Credential Ledger.DRepRole (EraCrypto (ShelleyLedgerEra era))
+    -> DRepUpdateRequirements era
+
+makeDrepUpdateCertificate
+  :: DRepUpdateRequirements era
+  -> Maybe (Ledger.Anchor (EraCrypto (ShelleyLedgerEra era)))
+  -> Certificate era
+makeDrepUpdateCertificate (DRepUpdateRequirements conwayOnwards vcred) mAnchor =
+  ConwayCertificate conwayOnwards
+    . Ledger.ConwayTxCertGov
+    $ Ledger.ConwayUpdateDRep vcred (noInlineMaybeToStrictMaybe mAnchor)
+
 -- ----------------------------------------------------------------------------
 -- Helper functions
 --

diff --git a/cardano-api/src/Cardano/Api.hs b/cardano-api/src/Cardano/Api.hs
@@ -979,10 +979,12 @@ module Cardano.Api (
     CommitteeHotKeyAuthorizationRequirements(..),
     DRepRegistrationRequirements(..),
     DRepUnregistrationRequirements(..),
+    DRepUpdateRequirements(..),
     makeCommitteeColdkeyResignationCertificate,
     makeCommitteeHotKeyAuthorizationCertificate,
     makeDrepRegistrationCertificate,
     makeDrepUnregistrationCertificate,
+    makeDrepUpdateCertificate,
 
     ResolvablePointers(..),
   ) where