@@ -1,38 +0,0 @@
1−---------------------------------------------------------
2−-- |
3−-- Module : Network.Wai.Middleware.MethodOverride
4−-- Copyright : Michael Snoyman
5−-- License : BSD3
6−--
7−-- Maintainer : Michael Snoyman <michael@snoyman.com>
8−-- Stability : Unstable
9−-- Portability : portable
10−--
11−-- Override the HTTP method based on either:
12−-- The X-HTTP-Method-Override header.
13−-- The _method_override GET parameter.
14−--
15−---------------------------------------------------------
16−module Network.Wai.Middleware.MethodOverride (methodOverride) where
17−
18−import Network.Wai
19−import Web.Encodings (decodeUrlPairs)
20−import Data.Monoid (mappend)
21−import Data.Char
22−import qualified Data.ByteString.Char8 as B8
23−
24−moHeader :: RequestHeader
25−moHeader = requestHeaderFromBS $ B8.pack "X-HTTP-Method-Override"
26−
27−moParam :: B8.ByteString
28−moParam = B8.pack "_method_override"
29−
30−methodOverride :: Middleware
31−methodOverride app env = do
32− let mo1 = lookup moHeader $ requestHeaders env
33− gets = decodeUrlPairs $ queryString env
34− mo2 = lookup moParam gets
35− app $
36− case mo1 `mappend` mo2 of
37− Nothing -> env
38− Just nm -> env { requestMethod = methodFromBS $ B8.map toUpper nm }