From 53225b4e5e55f53930aa7e1bfc74779d395abf74 Mon Sep 17 00:00:00 2001
From: Luke Nadur <19835357+intricate@users.noreply.github.com>
Date: Tue, 4 Aug 2020 14:42:35 -0400
Subject: [PATCH] Bech32 encode stake address in stake-address-info query
 result

---
 cardano-cli/src/Cardano/CLI/Shelley/Run/Query.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Run/Query.hs b/cardano-cli/src/Cardano/CLI/Shelley/Run/Query.hs
index 7992ce5ea1d..803ef25b5bb 100644
--- a/cardano-cli/src/Cardano/CLI/Shelley/Run/Query.hs
+++ b/cardano-cli/src/Cardano/CLI/Shelley/Run/Query.hs
@@ -23,7 +23,6 @@ import           Prelude (String)
 import           Data.Aeson (ToJSON (..), (.=))
 import qualified Data.Aeson as Aeson
 import           Data.Aeson.Encode.Pretty (encodePretty)
-import qualified Data.ByteString.Base16 as B16
 import qualified Data.ByteString.Char8 as BS
 import qualified Data.ByteString.Lazy.Char8 as LBS
 import           Data.HashMap.Strict (HashMap)
@@ -405,10 +404,8 @@ instance ToJSON DelegationsAndRewards where
           (Aeson.object ["delegation" .= d, "rewardAccountBalance" .= r])
           acc
 
-      toKey = Text.decodeLatin1
-            . B16.encode
-            . Ledger.serialiseRewardAcnt
-            . Ledger.RewardAcnt (toShelleyNetwork nw)
+      toKey :: Ledger.Credential Ledger.Staking TPraosStandardCrypto -> Text
+      toKey = serialiseAddress . StakeAddress (toShelleyNetwork nw)
 
 
 -- | Query the current protocol parameters from a Shelley node via the local