diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-12 11:16:21 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-12 11:16:21 +0400 |
| commit | 4e30588737415d59fa36aa7308c037bb8bd8e3d5 (patch) | |
| tree | 110178a60255633036ac4cdb0fdf4367d8aaf907 /src/Network/BitTorrent/Tracker.hs | |
| parent | eadb3a6826fb784c33b10b2eab7d4f7bf72b0043 (diff) | |
+ Add session exception.
Diffstat (limited to 'src/Network/BitTorrent/Tracker.hs')
| -rw-r--r-- | src/Network/BitTorrent/Tracker.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 { | |||
| 145 | , sePeers :: Chan PeerAddr | 145 | , sePeers :: Chan PeerAddr |
| 146 | -- TODO use something like 'TVar (Set PeerAddr)' | 146 | -- TODO use something like 'TVar (Set PeerAddr)' |
| 147 | -- otherwise we might get space leak | 147 | -- otherwise we might get space leak |
| 148 | -- TODO or maybe BoundedChan? | ||
| 148 | } | 149 | } |
| 149 | 150 | ||
| 150 | newSession :: Progress -> Int -> [PeerAddr] -> IO TSession | 151 | newSession :: Progress -> Int -> [PeerAddr] -> IO TSession |