From 0f4e462ae72eacb88eecb494446e788414190ef2 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 13 Apr 2021 12:07:38 -1000
Subject: [PATCH] add a Show instance for AmountDisplayOpts, WideBuilder

For debug logging.
---
 hledger-lib/Hledger/Data/Amount.hs | 2 +-
 hledger-lib/Text/WideString.hs     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Data/Amount.hs b/hledger-lib/Hledger/Data/Amount.hs
index e9714517d..06cb1f517 100644
--- a/hledger-lib/Hledger/Data/Amount.hs
+++ b/hledger-lib/Hledger/Data/Amount.hs
@@ -878,7 +878,7 @@ data AmountDisplay = AmountDisplay
   { adBuilder :: !WideBuilder  -- ^ String representation of the Amount
   , adTotal   :: !Int            -- ^ Cumulative length of MixedAmount this Amount is part of,
                                 --   including separators
-  }
+  } deriving (Show)
 
 nullAmountDisplay :: AmountDisplay
 nullAmountDisplay = AmountDisplay mempty 0
diff --git a/hledger-lib/Text/WideString.hs b/hledger-lib/Text/WideString.hs
index a055002a6..2eed619d7 100644
--- a/hledger-lib/Text/WideString.hs
+++ b/hledger-lib/Text/WideString.hs
@@ -26,7 +26,7 @@ import qualified Data.Text.Lazy.Builder as TB
 data WideBuilder = WideBuilder
   { wbBuilder :: !TB.Builder
   , wbWidth   :: !Int
-  }
+  } deriving (Show)
 
 instance Semigroup WideBuilder where
   WideBuilder x i <> WideBuilder y j = WideBuilder (x <> y) (i + j)