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/Tracker/Message.hs | |
| parent | 09e2d9940859b2976e58cdb8f8b06f89a48a0f1a (diff) | |
Add Arbitrary instance for AnnounceQuery
Diffstat (limited to 'src/Network/BitTorrent/Tracker/Message.hs')
| -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 | -- |