document.
commite5f87e450676b7a2a056404566f4a5907b974058
authorKazu Yamamoto <kazu@iij.ad.jp>
dateTue 14 Aug 2012, 16:33 (14 years ago)
parentee9a485
warp/Network/Wai/Handler/Warp.hs+7−6
@@ -39,18 +39,19 @@ module Network.Wai.Handler.Warp (
3939 -- * Datatypes
4040 , Port
4141 , InvalidRequest (..)
42− -- * Internal
42+ -- * Internal (Manager)
4343 , Manager
44− , withManager
4544 , Handle
46− , parseRequest
47− , sendResponse
45+ , initialize
46+ , withManager
47+ , register
4848 , registerKillThread
4949 , pause
5050 , resume
5151 , cancel
52− , register
53− , initialize
52+ -- * Internal
53+ , parseRequest
54+ , sendResponse
5455 , socketConnection
5556#if TEST
5657 , takeHeaders
warp/Network/Wai/Handler/Warp/Run.hs+1
@@ -34,6 +34,7 @@ import Network.Socket (withSocketsDo)
3434bytesPerRead :: Int
3535bytesPerRead = 4096
3636
37+-- | Default action value for 'Connection'
3738socketConnection :: Socket -> Connection
3839socketConnection s = Connection
3940 { connSendMany = Sock.sendMany s
warp/Network/Wai/Handler/Warp/Timeout.hs+3
@@ -21,7 +21,10 @@ import qualified Data.IORef as I
2121
2222-- | A timeout manager
2323newtype Manager = Manager (I.IORef [Handle])
24+
25+-- | A handle used by 'Manager'
2426data Handle = Handle (IO ()) (I.IORef State)
27+
2528data State = Active | Inactive | Paused | Canceled
2629
2730initialize :: Int -> IO Manager
warp/Network/Wai/Handler/Warp/Types.hs+1
@@ -12,6 +12,7 @@ import qualified Paths_warp
1212warpVersion :: String
1313warpVersion = showVersion Paths_warp.version
1414
15+-- | TCP port number
1516type Port = Int
1617
1718data InvalidRequest =