@@ -151,7 +151,6 @@ runTLSSocket TLSSettings {..} set sock app = do
151151 gen
152152 TLS.handshake ctx
153153 buf <- allocateBuffer bufferSize
154− blazeBuf <- toBlazeBuffer buf bufferSize
155154 let conn = Connection
156155 { connSendMany = TLS.sendData ctx . L.fromChunks
157156 , connSendAll = TLS.sendData ctx . L.fromChunks . return
@@ -171,7 +170,8 @@ runTLSSocket TLSSettings {..} set sock app = do
171170 else return x
172171 in go
173172 , connSendFileOverride = NotOverride
174− , connBuffer = blazeBuf
173+ , connBuffer = buf
174+ , connBufferSize = bufferSize
175175 }
176176 return conn
177177 else