dev: AmountStyle: improve debug output
This commit is contained in:
parent
00a8abd46d
commit
d3cc31780a
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user