From 4e30588737415d59fa36aa7308c037bb8bd8e3d5 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Wed, 12 Jun 2013 11:16:21 +0400
Subject: + Add session exception.

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

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

diff --git a/src/Network/BitTorrent/Tracker.hs b/src/Network/BitTorrent/Tracker.hs
index 179dae1d..11bc52de 100644
--- a/src/Network/BitTorrent/Tracker.hs
+++ b/src/Network/BitTorrent/Tracker.hs
@@ -145,6 +145,7 @@ data TSession = TSession {
   , sePeers      :: Chan PeerAddr
     -- TODO use something like 'TVar (Set PeerAddr)'
     -- otherwise we might get space leak
+    -- TODO or maybe BoundedChan?
   }
 
 newSession :: Progress -> Int -> [PeerAddr] -> IO TSession
-- 
cgit v1.2.3