web: handle multiple account filter patterns correctly

2010-11-29 16:33:05 +00:00 · 2010-11-29 16:33:05 +00:00 · 355b09e5e3
commit 355b09e5e3
parent 563004bfa0
1 changed files with 1 additions and 1 deletions
--- 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)