summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent')
-rw-r--r--src/Network/BitTorrent/Client/Swarm.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Client/Swarm.hs b/src/Network/BitTorrent/Client/Swarm.hs
index 1901905c..7fdd1f2f 100644
--- a/src/Network/BitTorrent/Client/Swarm.hs
+++ b/src/Network/BitTorrent/Client/Swarm.hs
@@ -24,7 +24,7 @@ data Swarm = Swarm
24 24
25newLeecher :: PeerId -> PortNumber -> Torrent -> IO Swarm 25newLeecher :: PeerId -> PortNumber -> Torrent -> IO Swarm
26newLeecher pid port Torrent {..} = do 26newLeecher pid port Torrent {..} = do
27 tracker <- connect tAnnounce 27 tracker <- connect undefined
28 return Swarm 28 return Swarm
29 { swarmTopic = idInfoHash tInfoDict 29 { swarmTopic = idInfoHash tInfoDict
30 , thisPeerId = pid 30 , thisPeerId = pid