From e005625780a899bb1fb15dfb22e0958bddc2ac16 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 19 Aug 2011 18:30:03 +0000 Subject: [PATCH] web: account register now obeys --cost and --effective flags like the rest --- hledger/Hledger/Cli/Reports.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hledger/Hledger/Cli/Reports.hs b/hledger/Hledger/Cli/Reports.hs index 1357db854..dee8abb1b 100644 --- a/hledger/Hledger/Cli/Reports.hs +++ b/hledger/Hledger/Cli/Reports.hs @@ -401,7 +401,8 @@ accountTransactionsReport :: ReportOpts -> Journal -> Matcher -> Matcher -> Tran accountTransactionsReport opts j m thisacctmatcher = (label, items) where -- transactions affecting this account, in date order - ts = sortBy (comparing tdate) $ filter (matchesTransaction thisacctmatcher) $ jtxns j + ts = sortBy (comparing tdate) $ filter (matchesTransaction thisacctmatcher) $ jtxns $ + journalSelectingDateFromOpts opts $ journalSelectingAmountFromOpts opts j -- starting balance: if we are filtering by a start date and nothing else, -- the sum of postings to this account before that date; otherwise zero. (startbal,label) | matcherIsNull m = (nullmixedamt, balancelabel)