d748ce6 · typeable/wai

git.iko.soy/typeable/wai

Adding cabal dependency on resourcet

commitd748ce6abb9bc7dcc9ee26c85390f1ee2dcf2c45 authorLyndon Maydwell <maydwell@gmail.com> dateThu 19 Apr 2012, 12:54 (14 years ago) parenta33e4d6

2 files changed+6−4

unifiedsplit

wai-extra/Network/Wai/Middleware/MethodOverridePost.hs+4−4

@@ -9,12 +9,12 @@ import Network.HTTP.Types (parseQuery)

99import Control.Monad.Trans.Resource (ResourceT)

1010

1111methodOverridePost :: Middleware

12−methodOverridePost app req = do

13− case lookup "Content-Type" (requestHeaders req) of Just "application/x-www-form-urlencoded" -> setPost req >>= app

14− _ -> app req

12+methodOverridePost app req = case lookup "Content-Type" (requestHeaders req) of

13+ Just "application/x-www-form-urlencoded" -> setPost req >>= app

14+ _ -> app req

1515

1616setPost :: Request -> ResourceT IO Request

1717setPost req = do

1818 body <- lazyConsume (requestBody req)

19− case parseQuery $ mconcat body of (("method_", Just newmethod):_) -> return $ req {requestMethod = newmethod}

19+ case parseQuery (mconcat body) of (("_method", Just newmethod):_) -> return $ req {requestMethod = newmethod}

2020 _ -> return req

wai-extra/wai-extra.cabal+2

@@ -38,6 +38,7 @@ Library

3838 , zlib-conduit >= 0.4 && < 0.5

3939 , blaze-builder-conduit >= 0.4 && < 0.5

4040 , ansi-terminal

41+ , resourcet >= 0.3 && < 0.4

4142

4243 Exposed-modules: Network.Wai.Handler.CGI

4344 Network.Wai.Middleware.AcceptOverride

@@ -47,6 +48,7 @@ Library

4748 Network.Wai.Middleware.Gzip

4849 Network.Wai.Middleware.Jsonp

4950 Network.Wai.Middleware.MethodOverride

51+ Network.Wai.Middleware.MethodOverridePost

5052 Network.Wai.Middleware.Rewrite

5153 Network.Wai.Middleware.Vhost

5254 Network.Wai.Parse