make -E work in register report

2009-03-17 19:56:05 +00:00 · 2009-03-17 19:56:05 +00:00 · 1fc9d47bd8
commit 1fc9d47bd8
parent 89abdfa456
1 changed files with 4 additions and 1 deletions
--- a/RegisterCommand.hs
+++ b/RegisterCommand.hs
@ -33,7 +33,10 @@ showRegisterReport opts args l
    | otherwise = showtxns summaryts nulltxn startbal
    where
      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
      (displayedts, _) = span (matchdisplayopt dopt) ts'
      startbal = sumTransactions precedingts