From 191d945f204af1a299e288bc6febe2fece26c1d3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= Date: Tue, 6 Feb 2024 10:34:11 +0100 Subject: [PATCH] Support signing transactions with extended committee keys --- cardano-cli/src/Cardano/CLI/Read.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/cardano-cli/src/Cardano/CLI/Read.hs b/cardano-cli/src/Cardano/CLI/Read.hs index 640af83a2e..7dd59fb9c8 100644 --- a/cardano-cli/src/Cardano/CLI/Read.hs +++ b/cardano-cli/src/Cardano/CLI/Read.hs @@ -640,7 +640,9 @@ data SomeSigningWitness | ADRepSigningWitness (SigningKey DRepKey) | ADRepExtendedSigningWitness (SigningKey DRepExtendedKey) | ACommitteeColdSigningWitness (SigningKey CommitteeColdKey) + | ACommitteeColdExtendedSigningWitness (SigningKey CommitteeColdExtendedKey) | ACommitteeHotSigningWitness (SigningKey CommitteeHotKey) + | ACommitteeHotExtendedSigningWitness (SigningKey CommitteeHotExtendedKey) deriving Show @@ -677,7 +679,9 @@ categoriseSomeSigningWitness swsk = ADRepSigningWitness sk -> AShelleyKeyWitness (WitnessDRepKey sk) ADRepExtendedSigningWitness sk -> AShelleyKeyWitness (WitnessDRepExtendedKey sk) ACommitteeColdSigningWitness sk -> AShelleyKeyWitness (WitnessCommitteeColdKey sk) + ACommitteeColdExtendedSigningWitness sk -> AShelleyKeyWitness (WitnessCommitteeColdExtendedKey sk) ACommitteeHotSigningWitness sk -> AShelleyKeyWitness (WitnessCommitteeHotKey sk) + ACommitteeHotExtendedSigningWitness sk -> AShelleyKeyWitness (WitnessCommitteeHotExtendedKey sk) data ReadWitnessSigningDataError = ReadWitnessSigningDataSigningKeyDecodeError !(FileError InputDecodeError) @@ -727,7 +731,9 @@ readWitnessSigningData (KeyWitnessSigningData skFile mbByronAddr) = do , FromSomeType (AsSigningKey AsDRepKey ) ADRepSigningWitness , FromSomeType (AsSigningKey AsDRepExtendedKey ) ADRepExtendedSigningWitness , FromSomeType (AsSigningKey AsCommitteeColdKey ) ACommitteeColdSigningWitness + , FromSomeType (AsSigningKey AsCommitteeColdExtendedKey ) ACommitteeColdExtendedSigningWitness , FromSomeType (AsSigningKey AsCommitteeHotKey ) ACommitteeHotSigningWitness + , FromSomeType (AsSigningKey AsCommitteeHotExtendedKey ) ACommitteeHotExtendedSigningWitness ] bech32FileTypes =