diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-30 16:40:34 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-30 16:40:34 +0400 |
commit | 58ea9495514fa90cdd0c53a5628372d370a6bd0c (patch) | |
tree | f1f78c1ec2263af198aefef60e28d4747d610b81 /src/Network/BitTorrent/Tracker/RPC/Message.hs | |
parent | baff7fbe8a491ce743b3fe2eef0e00ee37ee5c98 (diff) |
Add tests for http tracker protocol
Diffstat (limited to 'src/Network/BitTorrent/Tracker/RPC/Message.hs')
-rw-r--r-- | src/Network/BitTorrent/Tracker/RPC/Message.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/Tracker/RPC/Message.hs b/src/Network/BitTorrent/Tracker/RPC/Message.hs index e91d223e..26868ead 100644 --- a/src/Network/BitTorrent/Tracker/RPC/Message.hs +++ b/src/Network/BitTorrent/Tracker/RPC/Message.hs | |||
@@ -475,9 +475,6 @@ parseFailureMessage e = BS.concat $ case e of | |||
475 | parseFailureStatus :: ParamParseFailure -> Status | 475 | parseFailureStatus :: ParamParseFailure -> Status |
476 | parseFailureStatus = mkStatus <$> parseFailureCode <*> parseFailureMessage | 476 | parseFailureStatus = mkStatus <$> parseFailureCode <*> parseFailureMessage |
477 | 477 | ||
478 | --type AnnounceResponse = Either Status AnnounceInfo -- TODO | ||
479 | --type TrackerResponse = () -- TODO | ||
480 | |||
481 | {----------------------------------------------------------------------- | 478 | {----------------------------------------------------------------------- |
482 | Scrape message | 479 | Scrape message |
483 | -----------------------------------------------------------------------} | 480 | -----------------------------------------------------------------------} |