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

make isZeroAmount more robust, fix timelog balance total

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 07:06:02 +00:00
parent f99963786c
commit 3dca1ca548
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Ledger/Amount.hs
View File

@ -75,10 +75,7 @@ showAmountOrZero a
-- | is this amount zero, when displayed with its given precision ? -- | is this amount zero, when displayed with its given precision ?
isZeroAmount :: Amount -> Bool isZeroAmount :: Amount -> Bool
isZeroAmount a@(Amount c _ ) = nonzerodigits == "" isZeroAmount a@(Amount c _ ) = nonzerodigits == ""
where where nonzerodigits = filter (`elem` "123456789") $ showAmount a
nonzerodigits = filter (flip notElem "-+,.0") quantitystr
quantitystr = withoutsymbol $ showAmount a
withoutsymbol = drop (length $ symbol c) -- XXX
instance Num Amount where instance Num Amount where
abs (Amount c q) = Amount c (abs q) abs (Amount c q) = Amount c (abs q)