From c7b28220230773fc00122e0aec8fb1a402aff8da Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Tue, 4 Feb 2014 23:06:49 +0400 Subject: Add user agent to HTTP request headers --- src/Network/BitTorrent/Core/Fingerprint.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/Network/BitTorrent/Core') 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 -----------------------------------------------------------------------} -- cgit v1.2.3