From: Ramakrishnan Muthukrishnan Date: Sat, 27 Feb 2016 09:33:53 +0000 (+0530) Subject: HaveMsg: minor debug print X-Git-Url: https://git.rkrishnan.org/(%5B%5E?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