diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-07-14 19:34:36 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-07-14 19:34:36 +0400 |
| commit | 4427cb321a6927b2dd8119e95e09f4998ff8a226 (patch) | |
| tree | ed29b1a0ddcc3113cbe3d68d70413cc8239f5642 /src/Network/BitTorrent/Tracker.hs | |
| parent | 5cd492bc9e7ebbaa9557f7a6ae15582febd60a7d (diff) | |
~ Use timestamp peer Id generator.
Diffstat (limited to 'src/Network/BitTorrent/Tracker.hs')
| -rw-r--r-- | src/Network/BitTorrent/Tracker.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/Tracker.hs b/src/Network/BitTorrent/Tracker.hs index b320f0f9..b737a3df 100644 --- a/src/Network/BitTorrent/Tracker.hs +++ b/src/Network/BitTorrent/Tracker.hs | |||
| @@ -241,9 +241,7 @@ withTracker initProgress conn action = bracket start end (action . fst) | |||
| 241 | -- commutative: this implements the heuristic "old peers | 241 | -- commutative: this implements the heuristic "old peers |
| 242 | -- in head" | 242 | -- in head" |
| 243 | old <- BC.getChanContents sePeers | 243 | old <- BC.getChanContents sePeers |
| 244 | let new = respPeers | 244 | let combined = L.union old respPeers |
| 245 | let combined = L.union old new | ||
| 246 | |||
| 247 | BC.writeList2Chan sePeers combined | 245 | BC.writeList2Chan sePeers combined |
| 248 | 246 | ||
| 249 | _ -> return () | 247 | _ -> return () |