diff --git a/cardano-api/internal/Cardano/Api/Tx.hs b/cardano-api/internal/Cardano/Api/Tx.hs index cea059df7a..ff0b203cb3 100644 --- a/cardano-api/internal/Cardano/Api/Tx.hs +++ b/cardano-api/internal/Cardano/Api/Tx.hs @@ -711,6 +711,8 @@ data ShelleyWitnessSigningKey = | WitnessGenesisUTxOKey (SigningKey GenesisUTxOKey) | WitnessCommitteeColdKey (SigningKey CommitteeColdKey) | WitnessCommitteeHotKey (SigningKey CommitteeHotKey) + | WitnessDRepKey (SigningKey DRepKey) + | WitnessDRepExtendedKey (SigningKey DRepExtendedKey) makeShelleyKeyWitness :: forall era. () @@ -751,27 +753,22 @@ toShelleySigningKey key = case key of WitnessStakePoolKey (StakePoolSigningKey sk) -> ShelleyNormalSigningKey sk WitnessGenesisKey (GenesisSigningKey sk) -> ShelleyNormalSigningKey sk WitnessGenesisUTxOKey (GenesisUTxOSigningKey sk) -> ShelleyNormalSigningKey sk - WitnessGenesisDelegateKey (GenesisDelegateSigningKey sk) -> - ShelleyNormalSigningKey sk + WitnessGenesisDelegateKey (GenesisDelegateSigningKey sk) -> ShelleyNormalSigningKey sk + WitnessCommitteeColdKey (CommitteeColdSigningKey sk) -> ShelleyNormalSigningKey sk + WitnessCommitteeHotKey (CommitteeHotSigningKey sk) -> ShelleyNormalSigningKey sk + WitnessDRepKey (DRepSigningKey sk) -> ShelleyNormalSigningKey sk -- The cases for extended keys WitnessPaymentExtendedKey (PaymentExtendedSigningKey sk) -> ShelleyExtendedSigningKey sk - WitnessStakeExtendedKey (StakeExtendedSigningKey sk) -> ShelleyExtendedSigningKey sk - WitnessGenesisExtendedKey (GenesisExtendedSigningKey sk) -> ShelleyExtendedSigningKey sk - WitnessGenesisDelegateExtendedKey (GenesisDelegateExtendedSigningKey sk) -> ShelleyExtendedSigningKey sk - - WitnessCommitteeColdKey (CommitteeColdSigningKey sk) -> - ShelleyNormalSigningKey sk - - WitnessCommitteeHotKey (CommitteeHotSigningKey sk) -> - ShelleyNormalSigningKey sk + WitnessDRepExtendedKey (DRepExtendedSigningKey sk) -> + ShelleyExtendedSigningKey sk getShelleyKeyWitnessVerificationKey diff --git a/cardano-api/src/Cardano/Api.hs b/cardano-api/src/Cardano/Api.hs index 1d2fa88b8c..83010b9166 100644 --- a/cardano-api/src/Cardano/Api.hs +++ b/cardano-api/src/Cardano/Api.hs @@ -961,6 +961,7 @@ module Cardano.Api ( CommitteeMembersState (..), -- ** DReps DRepKey, + DRepExtendedKey, DRepMetadata, DRepMetadataReference, DRepMetadataValidationError,