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

Method override is case insensitive

Browse Source
This commit is contained in:
Michael Snoyman 2009-12-31 02:40:32 +02:00
parent 911934bff0
commit 13d3444881
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Hack/Middleware/MethodOverride.hs
View File

@ -18,6 +18,7 @@ module Hack.Middleware.MethodOverride (methodOverride) where
import Hack import Hack
import Web.Encodings (decodeUrlPairs) import Web.Encodings (decodeUrlPairs)
import Data.Monoid (mappend) import Data.Monoid (mappend)
import Data.Char
methodOverride :: Middleware methodOverride :: Middleware
methodOverride app env = do methodOverride app env = do
@ -28,7 +29,7 @@ methodOverride app env = do
app $ app $
case mo1 `mappend` mo2 of case mo1 `mappend` mo2 of
Nothing -> env Nothing -> env
Just nm -> env { requestMethod = safeRead cm nm } Just nm -> env { requestMethod = safeRead cm $ map toUpper nm }
safeRead :: Read a => a -> String -> a safeRead :: Read a => a -> String -> a
safeRead d s = safeRead d s =