on master help sign in
doc update.
fc6dcbeKazu Yamamoto
warp/Network/Wai/Handler/Warp.hs+3−2
@@ -39,8 +39,10 @@ module Network.Wai.Handler.Warp (
39 -- ** Data types
39 -- ** Data types
40 , HostPreference (..)
40 , HostPreference (..)
41 , Port
41 , Port
42− , Connection (..)
43 , InvalidRequest (..)
42 , InvalidRequest (..)
43+ -- ** Connection
44+ , Connection (..)
45+ , socketConnection
44 -- * Internal
46 -- * Internal
45 -- ** Time out manager
47 -- ** Time out manager
46 , module Network.Wai.Handler.Warp.Timeout
48 , module Network.Wai.Handler.Warp.Timeout
@@ -50,7 +52,6 @@ module Network.Wai.Handler.Warp (
50 -- ** Request and response
52 -- ** Request and response
51 , parseRequest
53 , parseRequest
52 , sendResponse
54 , sendResponse
53− , socketConnection
54#if TEST
55#if TEST
55 , takeHeaders
56 , takeHeaders
56 , parseFirst
57 , parseFirst
warp/Network/Wai/Handler/Warp/Run.hs+1−1
@@ -46,7 +46,7 @@ import qualified Network.Wai.Handler.Warp.FdCache as F
46bytesPerRead :: Int
46bytesPerRead :: Int
47bytesPerRead = 4096
47bytesPerRead = 4096
48
48
49−-- | Default action value for 'Connection'
49+-- | Default action value for 'Connection'.
50socketConnection :: Socket -> IO Connection
50socketConnection :: Socket -> IO Connection
51socketConnection s = do
51socketConnection s = do
52 buf <- allocateRecvBuffer bytesPerRead
52 buf <- allocateRecvBuffer bytesPerRead