slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

more verbose Amount debug output at level 6+

Browse Source
This commit is contained in:
Simon Michael 2014-04-02 04:57:33 -07:00
parent 874c467789
commit 21575ed47b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Data/Amount.hs
View File

@ -117,9 +117,9 @@ amountstyle = AmountStyle L False 0 '.' ',' []
instance Show Amount where instance Show Amount where
show _a@Amount{..} show _a@Amount{..}
-- debugLevel < 3 = showAmountWithoutPrice a -- debugLevel < 2 = showAmountWithoutPrice a
-- debugLevel < 6 = showAmount a -- debugLevel < 3 = showAmount a
| debugLevel < 9 = | debugLevel < 6 =
printf "Amount {acommodity=%s, aquantity=%s, ..}" (show acommodity) (show aquantity) printf "Amount {acommodity=%s, aquantity=%s, ..}" (show acommodity) (show aquantity)
| otherwise = --showAmountDebug a | otherwise = --showAmountDebug a
printf "Amount {acommodity=%s, aquantity=%s, aprice=%s, astyle=%s}" (show acommodity) (show aquantity) (showPriceDebug aprice) (show astyle) printf "Amount {acommodity=%s, aquantity=%s, aprice=%s, astyle=%s}" (show acommodity) (show aquantity) (showPriceDebug aprice) (show astyle)