diff options
Diffstat (limited to 'src/Network/BitTorrent/Tracker/Message.hs')
-rw-r--r-- | src/Network/BitTorrent/Tracker/Message.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Network/BitTorrent/Tracker/Message.hs b/src/Network/BitTorrent/Tracker/Message.hs index da46628b..54de44f7 100644 --- a/src/Network/BitTorrent/Tracker/Message.hs +++ b/src/Network/BitTorrent/Tracker/Message.hs | |||
@@ -1,5 +1,6 @@ | |||
1 | -- | | 1 | -- | |
2 | -- Copyright : (c) Sam Truzjan 2013 | 2 | -- Copyright : (c) Sam Truzjan 2013 |
3 | -- (c) Daniel Gröber 2013 | ||
3 | -- License : BSD3 | 4 | -- License : BSD3 |
4 | -- Maintainer : pxqr.sta@gmail.com | 5 | -- Maintainer : pxqr.sta@gmail.com |
5 | -- Stability : experimental | 6 | -- Stability : experimental |
@@ -149,6 +150,8 @@ getEvent = do | |||
149 | {----------------------------------------------------------------------- | 150 | {----------------------------------------------------------------------- |
150 | Announce query | 151 | Announce query |
151 | -----------------------------------------------------------------------} | 152 | -----------------------------------------------------------------------} |
153 | -- TODO add &ipv6= and &ipv4= params to AnnounceQuery | ||
154 | -- http://www.bittorrent.org/beps/bep_0007.html#announce-parameter | ||
152 | 155 | ||
153 | -- | A tracker request is HTTP GET request; used to include metrics | 156 | -- | A tracker request is HTTP GET request; used to include metrics |
154 | -- from clients that help the tracker keep overall statistics about | 157 | -- from clients that help the tracker keep overall statistics about |
@@ -433,6 +436,7 @@ renderAnnounceRequest = queryToSimpleQuery . toQuery | |||
433 | {----------------------------------------------------------------------- | 436 | {----------------------------------------------------------------------- |
434 | -- Announce response | 437 | -- Announce response |
435 | -----------------------------------------------------------------------} | 438 | -----------------------------------------------------------------------} |
439 | -- TODO check if announceinterval/complete/incomplete is positive ints | ||
436 | 440 | ||
437 | -- | Tracker can return peer list in either compact(BEP23) or not | 441 | -- | Tracker can return peer list in either compact(BEP23) or not |
438 | -- compact form. | 442 | -- compact form. |