From 41ba76f941e2b866337cefa41af22aaa11df45a9 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org> Date: Sat, 16 May 2015 12:15:57 +0530 Subject: [PATCH] remove the debug prints --- src/FuncTorrent/Peer.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs index 95e2938..8007ab0 100644 --- a/src/FuncTorrent/Peer.hs +++ b/src/FuncTorrent/Peer.hs @@ -140,11 +140,8 @@ getMsg h = do if l == 0 then return KeepAliveMsg else do - putStrLn $ "len: " ++ show l - msgID <- hGet h 1 - putStrLn $ "msg Type: " ++ show msgID - msg <- hGet h (l - 1) - return $ decode $ fromStrict $ concat [lBS, msgID, msg] + msg <- hGet h l + return $ decode $ fromStrict $ concat [lBS, msg] bsToInt :: ByteString -> Int bsToInt x = fromIntegral (runGet getWord32be (fromChunks (return x))) -- 2.45.2