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

Fixed a ByteString/String mismatch

Browse Source
This commit is contained in:
Michael Snoyman 2011-01-30 21:52:42 +02:00
parent b9b94bbf8e
commit 327401eee4
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/Internal/Dispatch.hs
View File

@ -16,6 +16,7 @@ import qualified Network.Wai as W
import Yesod.Core (yesodRunner, yesodDispatch) import Yesod.Core (yesodRunner, yesodDispatch)
import Data.List (foldl') import Data.List (foldl')
import Data.Char (toLower) import Data.Char (toLower)
import qualified Data.ByteString.Char8 as S8
{-| {-|
@ -106,7 +107,7 @@ mkSimpleExp segments [] frontVars (master, sub, toMasterRoute, mkey, constr, met
onSuccess <- newName "onSuccess" onSuccess <- newName "onSuccess"
req <- newName "req" req <- newName "req"
badMethod' <- [|badMethod|] badMethod' <- [|badMethod|]
rm <- [|W.requestMethod|] rm <- [|S8.unpack . W.requestMethod|]
let caseExp = rm `AppE` VarE req let caseExp = rm `AppE` VarE req
yr <- [|yesodRunner|] yr <- [|yesodRunner|]
cr <- [|fmap chooseRep|] cr <- [|fmap chooseRep|]