1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
{-# LANGUAGE RecordWildCards #-}
module Network.HTTP2.H2.Config where
import Data.IORef
import Foreign.Marshal.Alloc (free, mallocBytes)
import Network.HTTP.Semantics.Client
import Network.Socket
import Network.Socket.ByteString (sendAll)
import qualified System.TimeManager as T
import Network.HPACK
import Network.HTTP2.H2.Types
-- | Making simple configuration whose IO is not efficient.
-- A write buffer is allocated internally.
-- WAI timeout manger is initialized with 30_000_000 microseconds.
allocSimpleConfig :: Socket -> BufferSize -> IO Config
allocSimpleConfig s bufsiz = allocSimpleConfig' s bufsiz (30 * 1000000)
-- | Making simple configuration whose IO is not efficient.
-- A write buffer is allocated internally.
-- The third argument is microseconds to initialize WAI
-- timeout manager.
allocSimpleConfig' :: Socket -> BufferSize -> Int -> IO Config
allocSimpleConfig' s bufsiz usec = do
confWriteBuffer <- mallocBytes bufsiz
let confBufferSize = bufsiz
let confSendAll = sendAll s
confReadN <- defaultReadN s <$> newIORef Nothing
let confPositionReadMaker = defaultPositionReadMaker
confTimeoutManager <- T.initialize usec
confMySockAddr <- getSocketName s
confPeerSockAddr <- getPeerName s
return Config{..}
-- | Deallocating the resource of the simple configuration.
freeSimpleConfig :: Config -> IO ()
freeSimpleConfig conf = do
free $ confWriteBuffer conf
T.killManager $ confTimeoutManager conf
|
