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

omit transactions with zero amount from register report

Browse Source
This commit is contained in:
Simon Michael 2008-10-16 06:53:08 +00:00
parent dce8fd0dde
commit 628c4241f3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
RegisterCommand.hs
View File

@ -24,7 +24,8 @@ showTransactionsWithBalances opts args l =
startingbalance = nullamt startingbalance = nullamt
showTransactionsWithBalances' :: [Transaction] -> Transaction -> Amount -> [String] showTransactionsWithBalances' :: [Transaction] -> Transaction -> Amount -> [String]
showTransactionsWithBalances' [] _ _ = [] showTransactionsWithBalances' [] _ _ = []
showTransactionsWithBalances' (t:ts) tprev b = this ++ rest showTransactionsWithBalances' (t@Transaction{amount=a}:ts) tprev b =
(if isZeroAmount a then [] else this) ++ rest
where where
b' = b + (amount t) b' = b + (amount t)
sameentry (Transaction {entryno=e1}) (Transaction {entryno=e2}) = e1 == e2 sameentry (Transaction {entryno=e1}) (Transaction {entryno=e2}) = e1 == e2