one less orphan

1 files changed, 5 insertions, 0 deletions

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