remove the debug prints

diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs
index 95e29388d3829251189c7e7a96429c3c3f202561..8007ab057432be2b793a49c440b6777619322dfc 100644 (file)
--- 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)))