postgres-haskell/postgres-wire
1
1
Fork 0
mirror of https://github.com/postgres-haskell/postgres-wire.git synced 2024-11-22 05:53:12 +03:00
Code Issues Projects Releases Wiki Activity

Fixed rawReceive

Browse Source
This commit is contained in:
VyacheslavHashov 2017-07-12 02:04:15 +03:00
parent 2072ede0a6
commit defecb8103
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Database/PostgreSQL/Driver/RawConnection.hs
View File

@ -92,7 +92,7 @@ rawReceive s bs n = B.unsafeUseAsCStringLen bs $ \(prevPtr, prevLen) ->
in B.createUptoN bufSize $ \bufPtr -> do
B.memcpy bufPtr (castPtr prevPtr) prevLen
len <- unsafeReceive s (bufPtr `plusPtr` prevLen)
(fromIntegral bufSize) mempty
(fromIntegral n) mempty
-- Received empty string means closed connection by the remote host
when (len == 0) throwClosedException
pure $ prevLen + fromIntegral len