Commit 6dfcf3b6 authored by Petr Pudlak's avatar Petr Pudlak
Browse files

Add another ByteString.copy after breaking a message



This one is actually more important, as here we usually process more
data.
Signed-off-by: default avatarPetr Pudlak <pudlak@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent 7fa3fffe
......@@ -297,7 +297,7 @@ recvUpdate conf handle obuf = do
newbuf = B.append obuf msg
if B.null remaining
then recvUpdate conf handle newbuf
else return (newbuf, B.tail remaining)
else return (newbuf, B.copy (B.tail remaining))
-- | Waits for a message over a transport.
recvMsg :: Client -> IO String
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment