dev: AmountStyle: improve debug output

2023-08-25 00:05:31 +01:00 · 2023-08-25 00:05:31 +01:00 · d3cc31780a
commit d3cc31780a
parent 00a8abd46d
1 changed files with 2 additions and 3 deletions
--- a/hledger-lib/Hledger/Data/Types.hs
+++ b/hledger-lib/Hledger/Data/Types.hs
@ -259,14 +259,13 @@ data AmountStyle = AmountStyle {
 } deriving (Eq,Ord,Read,Generic)

 instance Show AmountStyle where
-  show AmountStyle{..} = concat
-    [ "AmountStylePP \""
+  show AmountStyle{..} = unwords
+    [ "AmountStylePP"
    , show ascommodityside
    , show ascommodityspaced
    , show asprecision
    , show asdecimalpoint
    , show asdigitgroups
-    , "..\""
    ]

 -- | The "display precision" for a hledger amount, by which we mean