From c9c6be27c09fd8d77a176fd54c97b9a345c298ac Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 11 Jun 2011 18:35:56 +0000
Subject: [PATCH] don't show subaccounts in account register report

---
 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 35739f877..05f1f22dc 100644
--- a/hledger/Hledger/Cli/Register.hs
+++ b/hledger/Hledger/Cli/Register.hs
@@ -113,7 +113,7 @@ accountRegisterReport _ j m a = postingsToRegisterReportItems ps nullposting sta
       --    | otherwise              = summarisePostingsByInterval interval depth empty filterspan displayps
      -- postings to display: this account's transactions' "other" postings, filtered
      -- same matcher used on transactions then again on postings, ok I think
-     ts = filter (matchesTransaction (MatchInAcct True a)) $ jtxns j
+     ts = filter (matchesTransaction (MatchInAcct True $ accountNameToAccountOnlyRegex a)) $ jtxns j
      displayps = filter (matchesPosting (MatchAnd [MatchAcct False a, m])) $ transactionsPostings ts
      -- starting balance: sum of this account's unfiltered postings prior to the specified start date, if any
      startdate = matcherStartDate m