HaveMsg: minor debug print
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 27 Feb 2016 09:33:53 +0000 (15:03 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 27 Feb 2016 09:33:53 +0000 (15:03 +0530)
src/FuncTorrent/Peer.hs

index 300101895f7f692f7ca4d99afd615be9db579378..3e16254a53c84f618bce0d569e2bfe4a03af4e78 100644 (file)
@@ -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