Merge pull request #292 from input-output-hk/mgalazyn/feature/add-wit…

…ness-committe-cold-key Add witness committee cold key
IntersectMBO · Oct 2, 2023 · 151eff1 · 151eff1
2 parents e3a2a78 + ad063bb
commit 151eff1
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Eras/Core.hs b/cardano-api/internal/Cardano/Api/Eras/Core.hs
@@ -153,10 +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