Show for CompactAddress, derived FromCBOR for Data.

IntersectMBO · Apr 9, 2021 · 2890d85 · 2890d85
1 parent 4753732
commit 2890d85
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/alonzo/impl/src/Cardano/Ledger/Alonzo/Data.hs b/alonzo/impl/src/Cardano/Ledger/Alonzo/Data.hs
@@ -34,7 +34,7 @@ module Cardano.Ledger.Alonzo.Data
   )
 where
 
-import Cardano.Binary (FromCBOR (..), ToCBOR (..), withSlice)
+import Cardano.Binary (FromCBOR (..), ToCBOR (..))
 import Cardano.Ledger.AuxiliaryData (AuxiliaryDataHash (..))
 import qualified Cardano.Ledger.Core as Core
 import qualified Cardano.Ledger.Crypto as CC
@@ -65,8 +65,6 @@ import Cardano.Ledger.SafeHash
   )
 import Cardano.Prelude (HeapWords (..), heapWords0, heapWords1)
 import qualified Data.ByteString as BS (ByteString, length)
-import Data.ByteString.Lazy (toStrict)
-import Data.ByteString.Short (toShort)
 import Data.Coders
 import Data.Map (Map)
 import Data.MemoBytes (Mem, MemoBytes (..), memoBytes)

diff --git a/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/CompactAddr.hs b/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/CompactAddr.hs
@@ -46,6 +46,9 @@ import Shelley.Spec.Ledger.Slot (SlotNo (..))
 newtype CompactAddr crypto = UnsafeCompactAddr ShortByteString
   deriving (Eq, Ord)
 
+instance CC.Crypto c => Show (CompactAddr c) where
+  show c = show (decompactAddr c)
+
 compactAddr :: Addr crypto -> CompactAddr crypto
 compactAddr = UnsafeCompactAddr . SBS.toShort . serialiseAddr