@@ -63,9 +63,11 @@ withBufferPool pool f = do
63type Buffer = Ptr Word8
63type Buffer = Ptr Word8
64type BufSize = Int
64type BufSize = Int
66−-- FIXME come up with good values here
66+-- 2^14 = 1024 * 16
67+-- The maximum size of TLS record
68+-- The maximum size of HTTP/2 frame payload (excluding frame header)
67bufferSize :: BufSize
69bufferSize :: BufSize
68−bufferSize = 4096
70+bufferSize = 16384
70allocateBuffer :: Int -> IO Buffer
72allocateBuffer :: Int -> IO Buffer
71allocateBuffer = mallocBytes
73allocateBuffer = mallocBytes