From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Sat, 27 Feb 2016 09:33:53 +0000 (+0530)
Subject: HaveMsg: minor debug print
X-Git-Url: https://git.rkrishnan.org/pf/content/components/com_hotproperty/css/cyclelanguage?a=commitdiff_plain;h=05572e18312e594d471a9cd2c0ca06d5e0202ef7;p=functorrent.git

HaveMsg: minor debug print
---

diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs
index 3001018..3e16254 100644
--- a/src/FuncTorrent/Peer.hs
+++ b/src/FuncTorrent/Peer.hs
@@ -120,7 +120,7 @@ msgLoop pieceStatus msgchannel = do
             msgLoop (adjust (\pieceData -> pieceData { dlstate = Have }) workPiece pieceStatus) msgchannel
     _ -> do
       msg <- liftIO $ getMsg h
-      gets peer >>= (\p -> liftIO $ putStrLn $ "<-- " ++ show msg ++ "from peer: " ++ show p)
+      gets peer >>= (\p -> liftIO $ putStrLn $ "<-- " ++ show msg ++ " from peer: " ++ show p)
       case msg of
         KeepAliveMsg -> do
           liftIO $ sendMsg h KeepAliveMsg