summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Tracker
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Tracker')
-rw-r--r--src/Network/BitTorrent/Tracker/Protocol.hs3
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 ()