From ac716e275d6ad9381ce46dbb5108bf565dc5a717 Mon Sep 17 00:00:00 2001 From: Sam T Date: Mon, 8 Apr 2013 03:27:47 +0400 Subject: one less orphan --- src/Network/Torrent/PeerID.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Network/Torrent/PeerID.hs') diff --git a/src/Network/Torrent/PeerID.hs b/src/Network/Torrent/PeerID.hs index 0eb4cbbb..f0ce790c 100644 --- a/src/Network/Torrent/PeerID.hs +++ b/src/Network/Torrent/PeerID.hs @@ -25,6 +25,7 @@ import qualified Data.ByteString.Builder as B import Data.Foldable (foldMap) import Data.Monoid ((<>)) import Data.Serialize +import Data.URLEncoded import Data.Version (Version(Version), versionBranch) import Data.Time.Clock (getCurrentTime) import Data.Time.Format (formatTime) @@ -43,6 +44,10 @@ instance Serialize PeerID where put = putByteString . getPeerID get = PeerID <$> getBytes 20 +instance URLShow PeerID where + urlShow = BC.unpack . getPeerID + + -- | Azureus-style encoding: -- * 1 byte : '-' -- * 2 bytes: client id -- cgit v1.2.3