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)