dev: AmountStyle: improve debug output

This commit is contained in:
Simon Michael 2023-08-25 00:05:31 +01:00
parent 00a8abd46d
commit d3cc31780a

View File

@ -259,14 +259,13 @@ data AmountStyle = AmountStyle {
} deriving (Eq,Ord,Read,Generic) } deriving (Eq,Ord,Read,Generic)
instance Show AmountStyle where instance Show AmountStyle where
show AmountStyle{..} = concat show AmountStyle{..} = unwords
[ "AmountStylePP \"" [ "AmountStylePP"
, show ascommodityside , show ascommodityside
, show ascommodityspaced , show ascommodityspaced
, show asprecision , show asprecision
, show asdecimalpoint , show asdecimalpoint
, show asdigitgroups , show asdigitgroups
, "..\""
] ]
-- | The "display precision" for a hledger amount, by which we mean -- | The "display precision" for a hledger amount, by which we mean