Skip to content
Browse files

Reverse UTF8 fix, because it causes inconsistencies with the normall …

…Happstack stack
  • Loading branch information...
1 parent 76738a6 commit 643b296285d1f5aeec97b65c8cff4c41db58602e @eelco eelco committed Apr 23, 2009
Showing with 1 addition and 3 deletions.
  1. +1 −3 src/Happstack/Server/FastCGI.hs
View
4 src/Happstack/Server/FastCGI.hs
@@ -15,7 +15,6 @@ module Happstack.Server.FastCGI
)
where
-import Codec.Binary.UTF8.String
import Control.Applicative
import Data.Char (toLower)
import Data.List (isPrefixOf)
@@ -30,7 +29,6 @@ import qualified Data.Map as M
import qualified Happstack.Server as H
import qualified Network.CGI as CGI
-
-- | Converts a Happstack ServerPartT to a CGI handling function.
serverPartToCGI :: (ToMessage b) => ServerPartT IO b -> CGI CGIResult
serverPartToCGI = convert . processRequest
@@ -79,7 +77,7 @@ r ? k = M.lookup k $ cgiVars r
withDef x = maybe x id
-- | Look up a String in the cgiVars, returning the empty string if the key is not present, also does UTF8 decoding
-str k v = withDef "" (v ? k >>= return . decodeString)
+str k v = withDef "" (v ? k)
-- | Append if the list is not empty
x ?: [] = []

0 comments on commit 643b296

Please sign in to comment.
Something went wrong with that request. Please try again.