From 3c67f25930397e53ca24c16e2d51084bae0697c3 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 2 Apr 2009 05:00:47 +0000
Subject: [PATCH] filter web balance view properly by account pattern

---
 HappsCommand.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/HappsCommand.hs b/HappsCommand.hs
index 732d5b6df..bfd5aaf67 100644
--- a/HappsCommand.hs
+++ b/HappsCommand.hs
@@ -70,7 +70,9 @@ web opts args l =
        ]
       printreport apats    = showEntries opts (apats ++ args) l
       registerreport apats = showRegisterReport opts (apats ++ args) l
-      balancereport apats  = showBalanceReport opts (apats ++ args) l
+      balancereport []  = showBalanceReport opts args l
+      balancereport apats  = showBalanceReport opts (apats ++ args) l'
+          where l' = cacheLedger apats (rawledger l) -- re-filter by account pattern each time
 
 templatise :: String -> ServerPartT IO Response
 templatise s = do