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

disable thousands punctuation, it's not so easy

Browse Source
This commit is contained in:
Simon Michael 2007-07-07 09:19:20 +00:00
parent 3ca6ebdf46
commit b840d69d67
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Amount.hs
View File

@ -48,7 +48,7 @@ instance Show Amount where show = showAmountRounded
showAmountRounded :: Amount -> String showAmountRounded :: Amount -> String
showAmountRounded (Amount c q p) = showAmountRounded (Amount c q p) =
(symbol c) ++ (punctuatethousands $ printf ("%."++show p++"f") q) (symbol c) ++ ({-punctuatethousands $ -}printf ("%."++show p++"f") q)
showAmountRoundedOrZero :: Amount -> String showAmountRoundedOrZero :: Amount -> String
showAmountRoundedOrZero a@(Amount c _ _) = showAmountRoundedOrZero a@(Amount c _ _) =