From f8d90f22e22688f27e427761c026b9b21af48cc4 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 16 Feb 2010 03:51:18 +0000
Subject: [PATCH] web: fix for unicode search form values

---
 Commands/Web.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Commands/Web.hs b/Commands/Web.hs
index 2538513c6..6904ff378 100644
--- a/Commands/Web.hs
+++ b/Commands/Web.hs
@@ -113,7 +113,11 @@ response = update
 redirect u c = response $ Hack.Contrib.Response.redirect u c
 
 reqparam :: Hack.Env -> String -> [String]
+#if __GLASGOW_HASKELL__ <= 610
 reqparam env p = map snd $ filter ((==p).fst) $ Hack.Contrib.Request.params env
+#else
+reqparam env p = map (decodeString.snd) $ filter ((==p).fst) $ Hack.Contrib.Request.params env
+#endif
 
 ledgerFileModifiedTime :: Ledger -> IO ClockTime
 ledgerFileModifiedTime l
@@ -209,7 +213,11 @@ navbar env =
       <a href="http://hledger.org/MANUAL.html" id="helplink">help</a>
     </div>
 
+#if __GLASGOW_HASKELL__ <= 610
+getParamOrNull p = (decodeString . fromMaybe "") `fmap` getParam p
+#else
 getParamOrNull p = fromMaybe "" `fmap` getParam p
+#endif
 
 navlinks :: Hack.Env -> HSP XML
 navlinks _ = do