summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Tracker/RPC/UDP.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Tracker/RPC/UDP.hs')
-rw-r--r--src/Network/BitTorrent/Tracker/RPC/UDP.hs8
1 files changed, 3 insertions, 5 deletions
diff --git a/src/Network/BitTorrent/Tracker/RPC/UDP.hs b/src/Network/BitTorrent/Tracker/RPC/UDP.hs
index bb5fe7e3..16e80c87 100644
--- a/src/Network/BitTorrent/Tracker/RPC/UDP.hs
+++ b/src/Network/BitTorrent/Tracker/RPC/UDP.hs
@@ -15,13 +15,13 @@
15{-# LANGUAGE TypeFamilies #-} 15{-# LANGUAGE TypeFamilies #-}
16module Network.BitTorrent.Tracker.RPC.UDP 16module Network.BitTorrent.Tracker.RPC.UDP
17 ( UDPTracker 17 ( UDPTracker
18 , putTracker
19
20 -- * RPC
18 , connect 21 , connect
19 , announce 22 , announce
20 , scrape 23 , scrape
21 , retransmission 24 , retransmission
22
23 -- * Debug
24 , putTracker
25 ) where 25 ) where
26 26
27import Control.Applicative 27import Control.Applicative
@@ -246,8 +246,6 @@ call addr arg = bracket open close rpc
246 throwIO $ userError "address mismatch" 246 throwIO $ userError "address mismatch"
247 return res 247 return res
248 248
249-- TODO retransmissions
250-- TODO blocking
251data UDPTracker = UDPTracker 249data UDPTracker = UDPTracker
252 { trackerURI :: URI 250 { trackerURI :: URI
253 , trackerConnection :: IORef Connection 251 , trackerConnection :: IORef Connection