@@ -133,7 +133,7 @@ handleRequest f ins outs env xsendfile = do
133 let vars' = map (S8.unpack *** S8.unpack) vars
133 let vars' = map (S8.unpack *** S8.unpack) vars
134 let input = const $ sRead ins
134 let input = const $ sRead ins
135 let hPut = sPutStr' outs
135 let hPut = sPutStr' outs
136− CGI.run'' vars' (CGI.requestBodyFunc input) hPut xsendfile f
136+ CGI.runGeneric vars' (CGI.requestBodyFunc input) hPut xsendfile f
138data FCGX_Request
138data FCGX_Request