From 8ddb71a490ec862d1df626b7eb9300d9ddb782f3 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Fri, 13 Dec 2013 12:49:11 +0400
Subject: Add HTTP tracker response content type

---
 src/Network/BitTorrent/Tracker/Message.hs | 5 +++++
 1 file changed, 5 insertions(+)

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:
-- 
cgit v1.2.3