Add witness committee cold key

IntersectMBO · Oct 2, 2023 · b2cffec · b2cffec
1 parent ef3f9f4
commit b2cffec
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Eras/Core.hs b/cardano-api/internal/Cardano/Api/Eras/Core.hs
@@ -153,8 +153,10 @@ forEraMaybeEon :: ()
 forEraMaybeEon =
   inEonForEra Nothing Just
 
-maybeEon :: (Eon eon, IsCardanoEra era)
-  => Maybe (eon era)    -- ^ The eon if supported in the era
+maybeEon ::
+  ( Eon eon
+  , IsCardanoEra era  -- ^ Era to check
+  ) => Maybe (eon era)    -- ^ The eon if supported in the era
 maybeEon =
   inEonForEra Nothing Just cardanoEra
 

diff --git a/cardano-api/internal/Cardano/Api/Tx.hs b/cardano-api/internal/Cardano/Api/Tx.hs
@@ -729,6 +729,7 @@ data ShelleyWitnessSigningKey =
      | WitnessGenesisDelegateExtendedKey
                                  (SigningKey GenesisDelegateExtendedKey)
      | WitnessGenesisUTxOKey     (SigningKey GenesisUTxOKey)
+     | WitnessCommitteeColdKey   (SigningKey CommitteeColdKey)
 
 
 makeShelleyKeyWitness :: forall era
@@ -794,6 +795,9 @@ toShelleySigningKey key = case key of
   WitnessGenesisDelegateExtendedKey (GenesisDelegateExtendedSigningKey sk) ->
     ShelleyExtendedSigningKey sk
 
+  WitnessCommitteeColdKey (CommitteeColdSigningKey sk) ->
+    ShelleyNormalSigningKey sk
+
 
 getShelleyKeyWitnessVerificationKey
   :: ShelleySigningKey