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

make -E work in register report

Browse Source
This commit is contained in:
Simon Michael 2009-03-17 19:56:05 +00:00
parent 89abdfa456
commit 1fc9d47bd8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
RegisterCommand.hs
View File

@ -33,7 +33,10 @@ showRegisterReport opts args l
| otherwise = showtxns summaryts nulltxn startbal | otherwise = showtxns summaryts nulltxn startbal
where where
interval = intervalFromOpts opts interval = intervalFromOpts opts
ts = filter (not . isZeroMixedAmount . amount) $ filter matchapats $ ledgerTransactions l ts = filterempties $ filter matchapats $ ledgerTransactions l
filterempties
| Empty `elem` opts = id
| otherwise = filter (not . isZeroMixedAmount . amount)
(precedingts, ts') = break (matchdisplayopt dopt) ts (precedingts, ts') = break (matchdisplayopt dopt) ts
(displayedts, _) = span (matchdisplayopt dopt) ts' (displayedts, _) = span (matchdisplayopt dopt) ts'
startbal = sumTransactions precedingts startbal = sumTransactions precedingts