Make Torrent(tAnnounce) field optional

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
 
 newLeecher :: PeerId -> PortNumber -> Torrent -> IO Swarm
 newLeecher pid port Torrent {..} = do
-  tracker <- connect tAnnounce
+  tracker <- connect undefined
   return Swarm
     { swarmTopic   = idInfoHash tInfoDict
     , thisPeerId   = pid