Merge pull request #101 from input-output-hk/jordan/add-cast-stake-po…

…ol-key-to-stake-key Add CastVerificationKeyRole StakePoolKey StakeKey instance
IntersectMBO · Jul 6, 2023 · fc76454 · fc76454
2 parents 0df480e + 4646ce4
commit fc76454
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Keys/Shelley.hs b/cardano-api/internal/Cardano/Api/Keys/Shelley.hs
@@ -1104,6 +1104,9 @@ instance CastSigningKeyRole GenesisDelegateKey StakePoolKey where
     castSigningKey (GenesisDelegateSigningKey skey) =
       StakePoolSigningKey skey
 
+instance CastVerificationKeyRole StakePoolKey StakeKey where
+    castVerificationKey (StakePoolVerificationKey (Shelley.VKey vkey)) =
+      StakeVerificationKey (Shelley.VKey vkey)
 
 --
 -- Shelley genesis delegate extended ed25519 keys

diff --git a/cardano-api/internal/Cardano/Api/SerialiseLedgerCddl.hs b/cardano-api/internal/Cardano/Api/SerialiseLedgerCddl.hs
@@ -297,17 +297,20 @@ cddlTypeToEra "Witnessed Tx AllegraEra" = return $ AnyCardanoEra AllegraEra
 cddlTypeToEra "Witnessed Tx MaryEra" = return $ AnyCardanoEra MaryEra
 cddlTypeToEra "Witnessed Tx AlonzoEra" = return $ AnyCardanoEra AlonzoEra
 cddlTypeToEra "Witnessed Tx BabbageEra" = return $ AnyCardanoEra BabbageEra
+cddlTypeToEra "Witnessed Tx ConwayEra" = return $ AnyCardanoEra ConwayEra
 cddlTypeToEra "Unwitnessed Tx ByronEra" = return $ AnyCardanoEra ByronEra
 cddlTypeToEra "Unwitnessed Tx ShelleyEra" = return $ AnyCardanoEra ShelleyEra
 cddlTypeToEra "Unwitnessed Tx AllegraEra" = return $ AnyCardanoEra AllegraEra
 cddlTypeToEra "Unwitnessed Tx MaryEra" = return $ AnyCardanoEra MaryEra
 cddlTypeToEra "Unwitnessed Tx AlonzoEra" = return $ AnyCardanoEra AlonzoEra
 cddlTypeToEra "Unwitnessed Tx BabbageEra" = return $ AnyCardanoEra BabbageEra
+cddlTypeToEra "Unwitnessed Tx ConwayEra" = return $ AnyCardanoEra ConwayEra
 cddlTypeToEra "TxWitness ShelleyEra" = return $ AnyCardanoEra ShelleyEra
 cddlTypeToEra "TxWitness AllegraEra" = return $ AnyCardanoEra AllegraEra
 cddlTypeToEra "TxWitness MaryEra" = return $ AnyCardanoEra MaryEra
 cddlTypeToEra "TxWitness AlonzoEra" = return $ AnyCardanoEra AlonzoEra
 cddlTypeToEra "TxWitness BabbageEra" = return $ AnyCardanoEra BabbageEra
+cddlTypeToEra "TxWitness ConwayEra" = return $ AnyCardanoEra ConwayEra
 cddlTypeToEra unknownCddlType = Left $ TextEnvelopeCddlErrUnknownType unknownCddlType
 
 readFileTextEnvelopeCddlAnyOf