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

web: fix a typo breaking ghc 6.12 compatibility

Browse Source
This commit is contained in:
Simon Michael 2010-05-19 19:17:29 +00:00
parent 131ec1e1f1
commit 287e71d54f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Hledger/Cli/Commands/Web.hs
View File

@ -112,9 +112,9 @@ redirect u c = response $ Hack.Contrib.Response.redirect u c
reqparam :: Hack.Env -> String -> [String] reqparam :: Hack.Env -> String -> [String]
#if __GLASGOW_HASKELL__ <= 610 #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 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 #endif
journalReloadIfChanged :: [Opt] -> [String] -> Journal -> IO Journal journalReloadIfChanged :: [Opt] -> [String] -> Journal -> IO Journal