diff options
Diffstat (limited to 'src/Network/BitTorrent')
-rw-r--r-- | src/Network/BitTorrent/Client/Swarm.hs | 2 |
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 | ||
25 | newLeecher :: PeerId -> PortNumber -> Torrent -> IO Swarm | 25 | newLeecher :: PeerId -> PortNumber -> Torrent -> IO Swarm |
26 | newLeecher pid port Torrent {..} = do | 26 | newLeecher 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 |