summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Tracker/RPC/Message.hs
diff options
context:
space:
mode:
authorSam Truzjan <pxqr.sta@gmail.com>2013-11-30 16:40:34 +0400
committerSam Truzjan <pxqr.sta@gmail.com>2013-11-30 16:40:34 +0400
commit58ea9495514fa90cdd0c53a5628372d370a6bd0c (patch)
treef1f78c1ec2263af198aefef60e28d4747d610b81 /src/Network/BitTorrent/Tracker/RPC/Message.hs
parentbaff7fbe8a491ce743b3fe2eef0e00ee37ee5c98 (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.hs3
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
475parseFailureStatus :: ParamParseFailure -> Status 475parseFailureStatus :: ParamParseFailure -> Status
476parseFailureStatus = mkStatus <$> parseFailureCode <*> parseFailureMessage 476parseFailureStatus = 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-----------------------------------------------------------------------}