@@ -181,7 +181,7 @@ run' :: [(String, String)] -- ^ all variables
181 -> W.Application
181 -> W.Application
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