@@ -5,6 +5,7 @@ module Network.Wai.Handler.CGI
55 , run'
66 , run''
77 , runSendfile
8+ , requestBodyFunc
89 ) where
910
1011import Network.Wai
@@ -65,7 +66,7 @@ run' vars inputH outputH app = do
6566
6667run'' :: [(String, String)] -- ^ all variables
6768 -> (forall a. Int -> Enumerator B.ByteString IO a) -- ^ responseBody of input
68− -> (B.ByteString -> IO ()) -- ^ destination for output FIXME use an iteratee
69+ -> (B.ByteString -> IO ()) -- ^ destination for output
6970 -> Maybe B.ByteString -- ^ does the server support the X-Sendfile header?
7071 -> Application
7172 -> IO ()