Add user agent to HTTP request headers

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Core/Fingerprint.hs b/src/Network/BitTorrent/Core/Fingerprint.hs
index a81edd8b..d743acd0 100644
--- a/src/Network/BitTorrent/Core/Fingerprint.hs
+++ b/src/Network/BitTorrent/Core/Fingerprint.hs
@@ -25,11 +25,13 @@ module Network.BitTorrent.Core.Fingerprint
        ( ClientImpl (..)
        , Fingerprint (..)
        , libFingerprint
+       , libUserAgent
        ) where
 
 import Data.Default
 import Data.List as L
 import Data.List.Split as L
+import Data.Monoid
 import Data.String
 import Data.Version
 import Text.PrettyPrint hiding ((<>))
@@ -190,6 +192,11 @@ instance Pretty Fingerprint where
 libFingerprint :: Fingerprint
 libFingerprint =  Fingerprint IlibHSbittorrent version
 
+-- | HTTP user agent of this (the bittorrent library) package. Can be
+-- used in HTTP tracker requests.
+libUserAgent :: String
+libUserAgent = render (pretty IlibHSbittorrent <> "/" <> pretty version)
+
 {-----------------------------------------------------------------------
 --  For torrent file
 -----------------------------------------------------------------------}