Add support of CC keys as verification keys

IntersectMBO · Apr 10, 2024 · 34b2e14 · 34b2e14
1 parent d183b91
commit 34b2e14
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/DeserialiseAnyOf.hs b/cardano-api/internal/Cardano/Api/DeserialiseAnyOf.hs
@@ -248,6 +248,10 @@ data SomeAddressVerificationKey
   | AStakeExtendedVerificationKey         (VerificationKey StakeExtendedKey)
   | ADRepVerificationKey                  (VerificationKey DRepKey)
   | ADRepExtendedVerificationKey          (VerificationKey DRepExtendedKey)
+  | ACommitteeColdVerificationKey         (VerificationKey CommitteeColdKey)
+  | ACommitteeColdExtendedVerificationKey (VerificationKey CommitteeColdExtendedKey)
+  | ACommitteeHotVerificationKey          (VerificationKey CommitteeHotKey)
+  | ACommitteeHotExtendedVerificationKey  (VerificationKey CommitteeHotExtendedKey)
   deriving (Show)
 
 renderSomeAddressVerificationKey :: SomeAddressVerificationKey -> Text
@@ -273,6 +277,10 @@ renderSomeAddressVerificationKey =
     AStakeExtendedVerificationKey vk         -> serialiseToBech32 vk
     ADRepVerificationKey vk                  -> serialiseToBech32 vk
     ADRepExtendedVerificationKey vk          -> serialiseToBech32 vk
+    ACommitteeColdVerificationKey vk         -> serialiseToBech32 vk
+    ACommitteeColdExtendedVerificationKey vk -> serialiseToBech32 vk
+    ACommitteeHotVerificationKey vk          -> serialiseToBech32 vk
+    ACommitteeHotExtendedVerificationKey vk  -> serialiseToBech32 vk
 
 
 mapSomeAddressVerificationKey :: ()
@@ -292,6 +300,10 @@ mapSomeAddressVerificationKey f = \case
   AStakeExtendedVerificationKey             vk -> f vk
   ADRepVerificationKey                      vk -> f vk
   ADRepExtendedVerificationKey              vk -> f vk
+  ACommitteeColdVerificationKey             vk -> f vk
+  ACommitteeColdExtendedVerificationKey     vk -> f vk
+  ACommitteeHotVerificationKey              vk -> f vk
+  ACommitteeHotExtendedVerificationKey      vk -> f vk
 
 -- | Internal function to pretty render byron keys
 prettyByronVerificationKey :: VerificationKey ByronKey-> Text
@@ -321,6 +333,10 @@ deserialiseAnyVerificationKeyBech32 =
   allBech32VerKey =
     [ FromSomeType (AsVerificationKey AsDRepKey) ADRepVerificationKey
     , FromSomeType (AsVerificationKey AsDRepExtendedKey) ADRepExtendedVerificationKey
+    , FromSomeType (AsVerificationKey AsCommitteeColdKey) ACommitteeColdVerificationKey
+    , FromSomeType (AsVerificationKey AsCommitteeColdExtendedKey) ACommitteeColdExtendedVerificationKey
+    , FromSomeType (AsVerificationKey AsCommitteeHotKey) ACommitteeHotVerificationKey
+    , FromSomeType (AsVerificationKey AsCommitteeHotExtendedKey) ACommitteeHotExtendedVerificationKey
     , FromSomeType (AsVerificationKey AsPaymentKey) APaymentVerificationKey
     , FromSomeType (AsVerificationKey AsPaymentExtendedKey) APaymentExtendedVerificationKey
     , FromSomeType (AsVerificationKey AsKesKey) AKesVerificationKey
@@ -341,6 +357,10 @@ deserialiseAnyVerificationKeyTextEnvelope bs =
     [ FromSomeType (AsVerificationKey AsByronKey) AByronVerificationKey
     , FromSomeType (AsVerificationKey AsDRepKey) ADRepVerificationKey
     , FromSomeType (AsVerificationKey AsDRepExtendedKey) ADRepExtendedVerificationKey
+    , FromSomeType (AsVerificationKey AsCommitteeColdKey) ACommitteeColdVerificationKey
+    , FromSomeType (AsVerificationKey AsCommitteeColdExtendedKey) ACommitteeColdExtendedVerificationKey
+    , FromSomeType (AsVerificationKey AsCommitteeHotKey) ACommitteeHotVerificationKey
+    , FromSomeType (AsVerificationKey AsCommitteeHotExtendedKey) ACommitteeHotExtendedVerificationKey
     , FromSomeType (AsVerificationKey AsPaymentKey) APaymentVerificationKey
     , FromSomeType (AsVerificationKey AsPaymentExtendedKey) APaymentExtendedVerificationKey
     , FromSomeType (AsVerificationKey AsStakeExtendedKey) AStakeExtendedVerificationKey