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

Implemented getMethod

Browse Source
This commit is contained in:
Michael Snoyman 2010-04-11 12:56:54 -07:00
parent 5d14ac5e1e
commit 45b4343747
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Yesod/Yesod.hs
View File

@ -16,6 +16,7 @@ import Yesod.Request
import Yesod.Definitions
import Yesod.Handler
import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as B8
import Data.Maybe (fromMaybe)
import Web.Mime
@ -153,7 +154,9 @@ toWaiApp' y resource session env = do
responseToWaiResponse res
getMethod :: (String -> YesodApp y) -> YesodApp y
getMethod = error "FIXME: getMethod"
getMethod f eh req cts =
let m = B8.unpack $ W.methodToBS $ W.requestMethod $ reqWaiRequest req
in f m eh req cts
cleanupSegment :: B.ByteString -> String
cleanupSegment = error "FIXME: cleanupSegment"