Add HTTP tracker response content type

1 files changed, 5 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Tracker/Message.hs b/src/Network/BitTorrent/Tracker/Message.hs
index 943c3af5..fe7686cb 100644
--- a/src/Network/BitTorrent/Tracker/Message.hs
+++ b/src/Network/BitTorrent/Tracker/Message.hs
@@ -47,6 +47,7 @@ module Network.BitTorrent.Tracker.Message
        , defaultNumWant
        , defaultMaxNumWant
        , defaultReannounceInterval
+       , announceType
        , parseFailureStatus
 
          -- * Scrape
@@ -571,6 +572,10 @@ parseFailureMessage e = BS.concat $ case e of
   Missing p   -> ["Missing parameter: ", paramName p]
   Invalid p v -> ["Invalid parameter: ", paramName p, " = ", v]
 
+-- | HTTP response /content type/.
+announceType :: ByteString
+announceType = "text/plain"
+
 -- | Get HTTP response status from a announce params parse failure.
 --
 --   For more info see: