From 355b09e5e3bde87acac5f0496e0151bbca4bb835 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 29 Nov 2010 16:33:05 +0000
Subject: [PATCH] web: handle multiple account filter patterns correctly

---
 hledger-web/Hledger/Web/App.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-web/Hledger/Web/App.hs b/hledger-web/Hledger/Web/App.hs
index afe6746e1..ed717f138 100644
--- a/hledger-web/Hledger/Web/App.hs
+++ b/hledger-web/Hledger/Web/App.hs
@@ -269,7 +269,7 @@ getHandlerData = do
           a <- fromMaybe "" <$> lookupGetParam "a"
           p <- fromMaybe "" <$> lookupGetParam "p"
           let opts = appOpts app ++ [Period p]
-              args = appArgs app ++ [a]
+              args = appArgs app ++ words a
               fspec = optsToFilterSpec opts args t
           return (a, p, opts, fspec)