Fix a grave bug in the message sender.

Rather than use send, we should be using sendAll. This is exactly what the documentation tells us, yet we didn't.
jlouis · May 1, 2010 · c05b61e · c05b61e
1 parent 9335604
commit c05b61e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Process/Peer/Sender.hs b/src/Process/Peer/Sender.hs
@@ -36,6 +36,6 @@ pgm = do
    s <- asks sock
    _ <- liftIO $ do
       r <- atomically $ takeTMVar ch
-      send s r
+      sendAll s r
    pgm