From 4427cb321a6927b2dd8119e95e09f4998ff8a226 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Sun, 14 Jul 2013 19:34:36 +0400
Subject: ~ Use timestamp peer Id generator.

---
 src/Network/BitTorrent/Tracker.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Network/BitTorrent/Tracker.hs')

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)
             -- commutative: this implements the heuristic "old peers
             -- in head"
             old <- BC.getChanContents sePeers
-            let new = respPeers
-            let combined = L.union old new
-
+            let combined = L.union old respPeers
             BC.writeList2Chan sePeers combined
 
           _ -> return ()
-- 
cgit v1.2.3