haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed invalid response content types.

Browse Source 
Was using "show" instead of "convertSuccess".
This commit is contained in:
Michael Snoyman 2009-12-22 16:57:46 +02:00
parent a614095aa4
commit 336f900849
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Yesod/Response.hs
View File

@ -51,6 +51,7 @@ import Test.Framework (testGroup, Test)
import Data.Generics import Data.Generics
import Control.Exception (Exception) import Control.Exception (Exception)
import Data.Convertible.Text (cs)
data Response = Response Int [Header] ContentType Content data Response = Response Int [Header] ContentType Content
deriving Show deriving Show
@ -101,7 +102,7 @@ responseToHackResponse :: [String] -- ^ language list
-> Response -> IO Hack.Response -> Response -> IO Hack.Response
responseToHackResponse _FIXMEls (Response sc hs ct c) = do responseToHackResponse _FIXMEls (Response sc hs ct c) = do
hs' <- mapM toPair hs hs' <- mapM toPair hs
let hs'' = ("Content-Type", show ct) : hs' let hs'' = ("Content-Type", cs ct) : hs'
let asLBS = unContent c let asLBS = unContent c
return $ Hack.Response sc hs'' asLBS return $ Hack.Response sc hs'' asLBS