summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Client/Swarm.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Client/Swarm.hs')
-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 a9dca048..1901905c 100644
--- a/src/Network/BitTorrent/Client/Swarm.hs
+++ b/src/Network/BitTorrent/Client/Swarm.hs
@@ -43,7 +43,7 @@ getAnnounceQuery Swarm {..} = AnnounceQuery
43 , reqEvent = Nothing 43 , reqEvent = Nothing
44 } 44 }
45 45
46askPeers :: Swarm -> IO [PeerAddr] 46askPeers :: Swarm -> IO [PeerAddr IP]
47askPeers s @ Swarm {..} = do 47askPeers s @ Swarm {..} = do
48 AnnounceInfo {..} <- RPC.announce (getAnnounceQuery s) trackerConn 48 AnnounceInfo {..} <- RPC.announce (getAnnounceQuery s) trackerConn
49 return (getPeerList respPeers) 49 return (getPeerList respPeers)