Adding cabal dependency on resourcet

yihuang · Apr 19, 2012 · d748ce6 · d748ce6
1 parent a33e4d6
commit d748ce6
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/wai-extra/Network/Wai/Middleware/MethodOverridePost.hs b/wai-extra/Network/Wai/Middleware/MethodOverridePost.hs
@@ -9,12 +9,12 @@ import Network.HTTP.Types           (parseQuery)
 import Control.Monad.Trans.Resource (ResourceT)
 
 methodOverridePost :: Middleware
-methodOverridePost app req = do
-  case lookup "Content-Type" (requestHeaders req) of Just "application/x-www-form-urlencoded" -> setPost req >>= app
-                                                     _                                        -> app req
+methodOverridePost app req = case lookup "Content-Type" (requestHeaders req) of
+  Just "application/x-www-form-urlencoded" -> setPost req >>= app
+  _                                        -> app req
 
 setPost :: Request -> ResourceT IO Request
 setPost req = do
   body <- lazyConsume (requestBody req)
-  case parseQuery $ mconcat body of (("method_", Just newmethod):_) -> return $ req {requestMethod = newmethod}
+  case parseQuery (mconcat body) of (("_method", Just newmethod):_) -> return $ req {requestMethod = newmethod}
                                     _                               -> return req
diff --git a/wai-extra/wai-extra.cabal b/wai-extra/wai-extra.cabal
@@ -38,6 +38,7 @@ Library
                    , zlib-conduit              >= 0.4      && < 0.5
                    , blaze-builder-conduit     >= 0.4      && < 0.5
                    , ansi-terminal
+                   , resourcet                 >= 0.3      && < 0.4
 
   Exposed-modules:   Network.Wai.Handler.CGI
                      Network.Wai.Middleware.AcceptOverride
@@ -47,6 +48,7 @@ Library
                      Network.Wai.Middleware.Gzip
                      Network.Wai.Middleware.Jsonp
                      Network.Wai.Middleware.MethodOverride
+                     Network.Wai.Middleware.MethodOverridePost
                      Network.Wai.Middleware.Rewrite
                      Network.Wai.Middleware.Vhost
                      Network.Wai.Parse