From 287e71d54fa8b9e8269552893ffa4e49f012a90d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 19 May 2010 19:17:29 +0000
Subject: [PATCH] web: fix a typo breaking ghc 6.12 compatibility

---
 Hledger/Cli/Commands/Web.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Hledger/Cli/Commands/Web.hs b/Hledger/Cli/Commands/Web.hs
index 3b81d0302..1db3f70ba 100644
--- a/Hledger/Cli/Commands/Web.hs
+++ b/Hledger/Cli/Commands/Web.hs
@@ -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