slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: fix for unicode search form values

Browse Source
This commit is contained in:
Simon Michael 2010-02-16 03:51:18 +00:00
parent 0641c5ad28
commit f8d90f22e2
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Commands/Web.hs
View File

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