git.iko.soy/typeable/wai
on master help sign in
Expsoing requestBodyFunc
c6fbbbbMichael Snoyman
Network/Wai/Handler/CGI.hs+2−1
compare with master
unifiedsplit
@@ -5,6 +5,7 @@ module Network.Wai.Handler.CGI
5 , run'
5 , run'
6 , run''
6 , run''
7 , runSendfile
7 , runSendfile
8+ , requestBodyFunc
8 ) where
9 ) where
9
10
10import Network.Wai
11import Network.Wai
@@ -65,7 +66,7 @@ run' vars inputH outputH app = do
65
66
66run'' :: [(String, String)] -- ^ all variables
67run'' :: [(String, String)] -- ^ all variables
67 -> (forall a. Int -> Enumerator B.ByteString IO a) -- ^ responseBody of input
68 -> (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
69 -> Maybe B.ByteString -- ^ does the server support the X-Sendfile header?
70 -> Maybe B.ByteString -- ^ does the server support the X-Sendfile header?
70 -> Application
71 -> Application
71 -> IO ()
72 -> IO ()