Add support for Bech32 serialisation of keys in Shelley address CLI

IntersectMBO · Mar 17, 2023 · 77fbd44 · 77fbd44
1 parent b2c2884
commit 77fbd44
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Run/Address.hs b/cardano-cli/src/Cardano/CLI/Shelley/Run/Address.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
@@ -7,7 +8,6 @@ module Cardano.CLI.Shelley.Run.Address
   , buildShelleyAddress
   , renderShelleyAddressCmdError
   , runAddressCmd
-  , runAddressKeyGenToFile
   , makeStakeAddressRef
   ) where
 
@@ -190,13 +190,13 @@ buildShelleyAddress vkey mbStakeVerifier nw =
 foldSomeAddressVerificationKey :: (forall keyrole. Key keyrole =>
                                    VerificationKey keyrole -> a)
                                -> SomeAddressVerificationKey -> a
-foldSomeAddressVerificationKey f (AByronVerificationKey           vk) = f vk
-foldSomeAddressVerificationKey f (APaymentVerificationKey         vk) = f vk
-foldSomeAddressVerificationKey f (APaymentExtendedVerificationKey vk) = f vk
-foldSomeAddressVerificationKey f (AGenesisUTxOVerificationKey     vk) = f vk
-foldSomeAddressVerificationKey f (AKesVerificationKey             vk) = f vk
+foldSomeAddressVerificationKey f (AByronVerificationKey                   vk) = f vk
+foldSomeAddressVerificationKey f (APaymentVerificationKey                 vk) = f vk
+foldSomeAddressVerificationKey f (APaymentExtendedVerificationKey         vk) = f vk
+foldSomeAddressVerificationKey f (AGenesisUTxOVerificationKey             vk) = f vk
+foldSomeAddressVerificationKey f (AKesVerificationKey                     vk) = f vk
 foldSomeAddressVerificationKey f (AGenesisDelegateExtendedVerificationKey vk) = f vk
-foldSomeAddressVerificationKey f (AGenesisExtendedVerificationKey vk) = f vk
-foldSomeAddressVerificationKey f (AVrfVerificationKey             vk) = f vk
-foldSomeAddressVerificationKey f (AStakeVerificationKey           vk) = f vk
-foldSomeAddressVerificationKey f (AStakeExtendedVerificationKey   vk) = f vk
+foldSomeAddressVerificationKey f (AGenesisExtendedVerificationKey         vk) = f vk
+foldSomeAddressVerificationKey f (AVrfVerificationKey                     vk) = f vk
+foldSomeAddressVerificationKey f (AStakeVerificationKey                   vk) = f vk
+foldSomeAddressVerificationKey f (AStakeExtendedVerificationKey           vk) = f vk