- Remove some debug stuff.

1 files changed, 1 insertions, 2 deletions

diff --git a/src/Network/BitTorrent/Tracker/Protocol.hs b/src/Network/BitTorrent/Tracker/Protocol.hs
index efc709e2..f7599ba2 100644
--- a/src/Network/BitTorrent/Tracker/Protocol.hs
+++ b/src/Network/BitTorrent/Tracker/Protocol.hs
@@ -230,7 +230,6 @@ askTracker req = do
 
     rawResp  <- simpleHTTP r
     respBody <- getResponseBody rawResp
-    print $ respBody
     checkResult $ decoded respBody
   where
 
@@ -247,5 +246,5 @@ leaveTracker req = do
   let r = mkHTTPRequest (encodeRequest req)
 
   rawResp  <- simpleHTTP r
-  respBody <- getResponseBody rawResp
+  _ <- getResponseBody rawResp
   return ()