From fcc8d6f8ee3ffbd4eb5ef11234fda8d5e9a11839 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Mon, 27 Jun 2011 14:15:53 +0000 Subject: [PATCH] fix journal register matching --- hledger/Hledger/Cli/Register.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger/Hledger/Cli/Register.hs b/hledger/Hledger/Cli/Register.hs index 1209b4ba9..821fee46c 100644 --- a/hledger/Hledger/Cli/Register.hs +++ b/hledger/Hledger/Cli/Register.hs @@ -183,7 +183,7 @@ journalRegisterReport :: [Opt] -> Journal -> Matcher -> AccountRegisterReport journalRegisterReport opts j@Journal{jtxns=ts} m = (totallabel, items) where ts' = sortBy (comparing tdate) $ filter (not . null . tpostings) $ map (filterTransactionPostings m) ts - items = reverse $ accountRegisterReportItems m MatchAny nullmixedamt (+) ts' + items = reverse $ accountRegisterReportItems m MatchNone nullmixedamt (+) ts' -- | Get a conventional account register report, with the specified -- options, for the currently focussed account (or possibly the focussed