web: period arg wasn't being preserved

2009-05-24 21:46:15 +00:00 · 2009-05-24 21:46:15 +00:00 · 0041a3b27a
commit 0041a3b27a
parent d35792bf3f
1 changed files with 4 additions and 2 deletions
--- a/Commands/Web.hs
+++ b/Commands/Web.hs
@ -106,7 +106,9 @@ maintemplate (a,p) r = printf (unlines
      -- another way to get them
      -- a = fromMaybe "" $ queryValue "a" r
      -- p = fromMaybe "" $ queryValue "p" r
-      q' = intercalate "&" $ if null a then [] else [(("a="++).urlEncode) a] ++ if null p then [] else [(("p="++).urlEncode) p]
+      q' = intercalate "&" $
+           (if null a then [] else [(("a="++).urlEncode) a]) ++ 
+           (if null p then [] else [(("p="++).urlEncode) p])
      q = if null q' then "" else '?':q'
      resetlink | null a && null p = ""
                | otherwise = printf "&nbsp; <a href=%s>reset</a>" u