@@ -266,14 +266,13 @@ mkConn tlsset s params = do
266266
267267httpOverTls :: TLS.TLSParams params => TLSSettings -> Socket -> I.IORef B.ByteString -> params -> IO (Connection, Transport)
268268httpOverTls TLSSettings{..} s cachedRef params = do
269− pool <- newBufferPool
270269 gen <- Crypto.Random.AESCtr.makeSystem
271270 ctx <- TLS.contextNew backend params gen
272271 TLS.contextHookSetLogging ctx tlsLogging
273272 TLS.handshake ctx
274273 writeBuf <- allocateBuffer bufferSize
275274 tls <- getTLSinfo ctx
276− return (conn ctx pool writeBuf, tls)
275+ return (conn ctx writeBuf, tls)
277276 where
278277 backend = TLS.Backend {
279278 TLS.backendFlush = return ()
@@ -281,13 +280,12 @@ httpOverTls TLSSettings{..} s cachedRef params = do
281280 , TLS.backendSend = sendAll s
282281 , TLS.backendRecv = recvTLS cachedRef s
283282 }
284− conn ctx pool writeBuf = Connection {
283+ conn ctx writeBuf = Connection {
285284 connSendMany = TLS.sendData ctx . L.fromChunks
286285 , connSendAll = sendall
287286 , connSendFile = sendfile
288287 , connClose = close
289288 , connRecv = recv
290− , connBufferPool = pool
291289 , connWriteBuffer = writeBuf
292290 , connBufferSize = bufferSize
293291 }