From c56a070b3c5fdcdc1091945d2ba52ca37a7b1e7a Mon Sep 17 00:00:00 2001 From: Mateusz Galazyn Date: Mon, 2 Oct 2023 17:20:00 +0200 Subject: [PATCH] Fix #311 - Add Cold Committee Key text envelope --- cardano-cli/src/Cardano/CLI/Read.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/cardano-cli/src/Cardano/CLI/Read.hs b/cardano-cli/src/Cardano/CLI/Read.hs index ca5491fc8f..52c5b8be1e 100644 --- a/cardano-cli/src/Cardano/CLI/Read.hs +++ b/cardano-cli/src/Cardano/CLI/Read.hs @@ -619,6 +619,7 @@ data SomeSigningWitness | AGenesisDelegateExtendedSigningWitness (SigningKey GenesisDelegateExtendedKey) | AGenesisUTxOSigningWitness (SigningKey GenesisUTxOKey) | ADRepSigningWitness (SigningKey DRepKey) + | ACommitteeSigningWitness (SigningKey CommitteeColdKey) -- | Data required for constructing a Shelley bootstrap witness. @@ -652,6 +653,7 @@ categoriseSomeSigningWitness swsk = AGenesisDelegateExtendedSigningWitness sk -> AShelleyKeyWitness (WitnessGenesisDelegateExtendedKey sk) AGenesisUTxOSigningWitness sk -> AShelleyKeyWitness (WitnessGenesisUTxOKey sk) ADRepSigningWitness sk -> AShelleyKeyWitness (WitnessPaymentKey $ castDrep sk) + ACommitteeSigningWitness sk -> AShelleyKeyWitness (WitnessCommitteeColdKey sk) -- TODO: Conway era - Add constrctor for SigningKey DrepKey to ShelleyWitnessSigningKey castDrep :: SigningKey DRepKey -> SigningKey PaymentKey @@ -704,6 +706,7 @@ readWitnessSigningData (KeyWitnessSigningData skFile mbByronAddr) = do , FromSomeType (AsSigningKey AsGenesisDelegateExtendedKey ) AGenesisDelegateExtendedSigningWitness , FromSomeType (AsSigningKey AsGenesisUTxOKey ) AGenesisUTxOSigningWitness , FromSomeType (AsSigningKey AsDRepKey ) ADRepSigningWitness + , FromSomeType (AsSigningKey AsCommitteeColdKey ) ACommitteeSigningWitness ] bech32FileTypes =