git.iko.soy/typeable/wai
on master help sign in
API change in wai-extra
3308bfeMichael Snoyman
Network/Wai/Handler/FastCGI.hsc+1−1
compare with master
unifiedsplit
@@ -114,7 +114,7 @@ handleRequest :: W.Application
114handleRequest f ins outs _errs env xsendfile =
114handleRequest f ins outs _errs env xsendfile =
115 do
115 do
116 vars <- environToTable env
116 vars <- environToTable env
117− let input = sRead ins
117+ let input = const $ sRead ins
118 let hPut = sPutStr' outs
118 let hPut = sPutStr' outs
119 CGI.run'' vars (CGI.requestBodyFunc input) hPut xsendfile f
119 CGI.run'' vars (CGI.requestBodyFunc input) hPut xsendfile f
120
120