mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-19 18:29:36 +03:00
disable thousands punctuation, it's not so easy
This commit is contained in:
parent
3ca6ebdf46
commit
b840d69d67
@ -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 _ _) =
|
||||||
|
Loading…
Reference in New Issue
Block a user