web: fix a typo breaking ghc 6.12 compatibility

This commit is contained in:
Simon Michael 2010-05-19 19:17:29 +00:00
parent 131ec1e1f1
commit 287e71d54f

View File

@ -112,9 +112,9 @@ 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
#else
reqparam env p = map snd $ filter ((==p).fst) $ Hack.Contrib.Request.params env
#endif
journalReloadIfChanged :: [Opt] -> [String] -> Journal -> IO Journal