diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-03-17 23:49:48 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-03-17 23:52:21 +0400 |
| commit | 1c1208c2d66172963faa5422dd61204b1ca1fdf2 (patch) | |
| tree | eab54ba03e59e5b96c39903240b4ac427bcca3d6 /src/Network/BitTorrent/Tracker | |
| parent | 6021d0649cc5d34b675f368ff5cb188e3647605e (diff) | |
Warn: newSession expects list of trusted trackers
Diffstat (limited to 'src/Network/BitTorrent/Tracker')
| -rw-r--r-- | src/Network/BitTorrent/Tracker/Session.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Tracker/Session.hs b/src/Network/BitTorrent/Tracker/Session.hs index 118befd3..7bf67ab8 100644 --- a/src/Network/BitTorrent/Tracker/Session.hs +++ b/src/Network/BitTorrent/Tracker/Session.hs | |||
| @@ -168,8 +168,9 @@ data Session = Session | |||
| 168 | , trackers :: !(MVar (TrackerList TrackerEntry)) | 168 | , trackers :: !(MVar (TrackerList TrackerEntry)) |
| 169 | } | 169 | } |
| 170 | 170 | ||
| 171 | -- | Create a new multitracker session in paused state. To start | 171 | -- | Create a new multitracker session in paused state. Tracker list |
| 172 | -- announcing client presence use 'notify'. | 172 | -- must contant only /trusted/ tracker uris. To start announcing |
| 173 | -- client presence use 'notify'. | ||
| 173 | newSession :: InfoHash -> TrackerList URI -> IO Session | 174 | newSession :: InfoHash -> TrackerList URI -> IO Session |
| 174 | newSession ih origUris = do | 175 | newSession ih origUris = do |
| 175 | uris <- shuffleTiers origUris | 176 | uris <- shuffleTiers origUris |