diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-26 06:25:25 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-26 06:25:25 +0400 |
commit | 0ec645b8e89c9b0177377812f7e4035c2c94ce1b (patch) | |
tree | 51d5cf893bf7eac1ff3494bbf5942e83c113b6c6 /src/Network/BitTorrent | |
parent | 09e2d9940859b2976e58cdb8f8b06f89a48a0f1a (diff) |
Add Arbitrary instance for AnnounceQuery
Diffstat (limited to 'src/Network/BitTorrent')
-rw-r--r-- | src/Network/BitTorrent/Tracker/Message.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Network/BitTorrent/Tracker/Message.hs b/src/Network/BitTorrent/Tracker/Message.hs index e49a9e58..53d7a946 100644 --- a/src/Network/BitTorrent/Tracker/Message.hs +++ b/src/Network/BitTorrent/Tracker/Message.hs | |||
@@ -417,6 +417,8 @@ missingOffset = 101 | |||
417 | invalidOffset :: Int | 417 | invalidOffset :: Int |
418 | invalidOffset = 150 | 418 | invalidOffset = 150 |
419 | 419 | ||
420 | -- TODO use Network.HTTP.Types.Status | ||
421 | |||
420 | -- | Get HTTP response error code from a announce params parse | 422 | -- | Get HTTP response error code from a announce params parse |
421 | -- failure. | 423 | -- failure. |
422 | -- | 424 | -- |