Don't map all request methods to GET
commit8a5d5d92c1a976d40a0d67aed48e3f9a3c6c5eb0
authorMichael Snoyman <michael@snoyman.com>
dateSun 18 Jul 2010, 18:32 (16 years ago)
parentf6bec21
Network/Wai/Handler/FastCGI.hsc+1−1
@@ -181,7 +181,7 @@ run' :: [(String, String)] -- ^ all variables
181181 -> W.Application
182182 -> IO ()
183183run' vars inputH hPut app = do
184− let rmethod = safeRead "GET" $ lookup' "REQUEST_METHOD" vars
184+ let rmethod = B8.pack $ lookup' "REQUEST_METHOD" vars
185185 pinfo = lookup' "PATH_INFO" vars
186186 qstring = lookup' "QUERY_STRING" vars
187187 servername = lookup' "SERVER_NAME" vars
wai-handler-fastcgi.cabal+1−1
@@ -1,5 +1,5 @@
11name: wai-handler-fastcgi
2−version: 0.2.0
2+version: 0.2.0.1
33license: BSD3
44license-file: LICENSE
55author: Michael Snoyman <michael@snoyman.com>