From 595a07704c18684205f2db1e62a0c091d2478913 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 17 Mar 2009 19:52:22 +0000
Subject: [PATCH] filter account names again when doing balance report for now,
 useful for web queries

---
 BalanceCommand.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/BalanceCommand.hs b/BalanceCommand.hs
index b27341b75..b7b9913b1 100644
--- a/BalanceCommand.hs
+++ b/BalanceCommand.hs
@@ -127,8 +127,9 @@ showBalanceReport opts args l = acctsstr ++ totalstr
           where
             showacct = showInterestingAccount l interestingaccts
             interestingaccts = filter (isInteresting opts l) acctnames
-            acctnames = sort $ tail $ flatten $ treemap aname accttree
+            acctnames = filter (matchpats apats) $ sort $ tail $ flatten $ treemap aname accttree
             accttree = ledgerAccountTree (depthFromOpts opts) l
+            apats = fst $ parseAccountDescriptionArgs opts args
       totalstr | isZeroMixedAmount total = ""
                | otherwise = printf "--------------------\n%s\n" $ padleft 20 $ showMixedAmount total
           where