@@ -5,7 +5,7 @@ module Network.Wai.Handler.SCGI
55 ) where
66
77import Network.Wai
8−import Network.Wai.Handler.CGI (run'', requestBodyFunc)
8+import Network.Wai.Handler.CGI (runGeneric, requestBodyFunc)
99import Foreign.Ptr
1010import Foreign.Marshal.Alloc
1111import Foreign.C
@@ -31,7 +31,7 @@ runOne sf app = do
3131 (i, _):_ -> i
3232 [] -> 0
3333 conLenI <- newIORef conLen
34− run'' headers (requestBodyFunc $ input socket conLenI)
34+ runGeneric headers (requestBodyFunc $ input socket conLenI)
3535 (write socket) sf app
3636 drain socket conLenI
3737 _ <- c'close socket