diff options
Diffstat (limited to 'src/Network/BitTorrent/Client/Swarm.hs')
-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 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 | ||
46 | askPeers :: Swarm -> IO [PeerAddr] | 46 | askPeers :: Swarm -> IO [PeerAddr IP] |
47 | askPeers s @ Swarm {..} = do | 47 | askPeers 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) |