From 536c44740e0e9673cd7bf07a5f6328ed638c9b2d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 23 May 2010 21:49:44 +0000
Subject: [PATCH] web: fix a bug probably affecting reload-on-change

---
 Hledger/Cli/Commands/Web.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/Hledger/Cli/Commands/Web.hs b/Hledger/Cli/Commands/Web.hs
index 85b273e2c..663a68ea1 100644
--- a/Hledger/Cli/Commands/Web.hs
+++ b/Hledger/Cli/Commands/Web.hs
@@ -81,10 +81,8 @@ server opts args j =
 #endif
       \env -> do -- IO Response
        -- general request handler
-       let a = intercalate "+" $ map decodeString $ reqParamUtf8 env "a"
-           p = intercalate "+" $ map decodeString $ reqParamUtf8 env "p"
-           opts' = opts ++ [Period p]
-           args' = args ++ words a
+       let opts' = opts ++ [Period $ unwords $ map decodeString $ reqParamUtf8 env "p"]
+           args' = args ++ map decodeString (reqParamUtf8 env "a")
        j' <- fromJust `fmap` getValue "hledger" "journal"
        j'' <- journalReloadIfChanged opts' args' j'
        -- declare path-specific request handlers