@@ -50,10 +50,11 @@ socketConnection :: Socket -> IO Connection
50socketConnection s = do
50socketConnection s = do
51 bufferPool <- newBufferPool
51 bufferPool <- newBufferPool
52 writeBuf <- allocateBuffer bufferSize
52 writeBuf <- allocateBuffer bufferSize
53+ let sendall = Sock.sendAll s
53 return Connection {
54 return Connection {
54 connSendMany = Sock.sendMany s
55 connSendMany = Sock.sendMany s
55− , connSendAll = Sock.sendAll s
56+ , connSendAll = sendall
56− , connSendFile = defaultSendFile s
57+ , connSendFile = defaultSendFile s writeBuf bufferSize sendall
57 , connClose = sClose s >> freeBuffer writeBuf
58 , connClose = sClose s >> freeBuffer writeBuf
58 , connRecv = receive s bufferPool
59 , connRecv = receive s bufferPool
59 , connBufferPool = bufferPool
60 , connBufferPool = bufferPool