on master help sign in
Don't map all request methods to GET
8a5d5d9Michael Snoyman
Network/Wai/Handler/FastCGI.hsc+1−1
@@ -181,7 +181,7 @@ run' :: [(String, String)] -- ^ all variables
181 -> W.Application
181 -> W.Application
182 -> IO ()
182 -> IO ()
183run' vars inputH hPut app = do
183run' vars inputH hPut app = do
184− let rmethod = safeRead "GET" $ lookup' "REQUEST_METHOD" vars
184+ let rmethod = B8.pack $ lookup' "REQUEST_METHOD" vars
185 pinfo = lookup' "PATH_INFO" vars
185 pinfo = lookup' "PATH_INFO" vars
186 qstring = lookup' "QUERY_STRING" vars
186 qstring = lookup' "QUERY_STRING" vars
187 servername = lookup' "SERVER_NAME" vars
187 servername = lookup' "SERVER_NAME" vars
wai-handler-fastcgi.cabal+1−1
@@ -1,5 +1,5 @@
1name: wai-handler-fastcgi
1name: wai-handler-fastcgi
2−version: 0.2.0
2+version: 0.2.0.1
3license: BSD3
3license: BSD3
4license-file: LICENSE
4license-file: LICENSE
5author: Michael Snoyman <michael@snoyman.com>
5author: Michael Snoyman <michael@snoyman.com>