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.37.2