runGeneric
commitd8afaeaae54b5420a19f0213e71451516fe3e6f7
authorMichael Snoyman <michael@snoyman.com>
dateMon 4 Apr 2011, 21:06 (16 years ago)
parent2f26930
Network/Wai/Handler/FastCGI.hsc+1−1
@@ -133,7 +133,7 @@ handleRequest f ins outs env xsendfile = do
133133 let vars' = map (S8.unpack *** S8.unpack) vars
134134 let input = const $ sRead ins
135135 let hPut = sPutStr' outs
136− CGI.run'' vars' (CGI.requestBodyFunc input) hPut xsendfile f
136+ CGI.runGeneric vars' (CGI.requestBodyFunc input) hPut xsendfile f
137137
138138data FCGX_Request
139139