remove the debug prints
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 16 May 2015 06:45:57 +0000 (12:15 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 16 May 2015 06:45:57 +0000 (12:15 +0530)
src/FuncTorrent/Peer.hs

index 95e29388d3829251189c7e7a96429c3c3f202561..8007ab057432be2b793a49c440b6777619322dfc 100644 (file)
@@ -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)))