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
Signed-off-by: default avatarPetr Pudlak <>
Reviewed-by: default avatarKlaus Aehlig <>
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