diff options
Diffstat (limited to 'src/Network/BitTorrent/Tracker')
-rw-r--r-- | src/Network/BitTorrent/Tracker/Protocol.hs | 3 |
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 | |||
230 | 230 | ||
231 | rawResp <- simpleHTTP r | 231 | rawResp <- simpleHTTP r |
232 | respBody <- getResponseBody rawResp | 232 | respBody <- getResponseBody rawResp |
233 | print $ respBody | ||
234 | checkResult $ decoded respBody | 233 | checkResult $ decoded respBody |
235 | where | 234 | where |
236 | 235 | ||
@@ -247,5 +246,5 @@ leaveTracker req = do | |||
247 | let r = mkHTTPRequest (encodeRequest req) | 246 | let r = mkHTTPRequest (encodeRequest req) |
248 | 247 | ||
249 | rawResp <- simpleHTTP r | 248 | rawResp <- simpleHTTP r |
250 | respBody <- getResponseBody rawResp | 249 | _ <- getResponseBody rawResp |
251 | return () | 250 | return () |