web: fix a typo breaking ghc 6.12 compatibility
This commit is contained in:
parent
131ec1e1f1
commit
287e71d54f
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user