one less orphan

2 files changed, 5 insertions, 3 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
diff --git a/src/Network/Torrent/Tracker.hs b/src/Network/Torrent/Tracker.hs
index 796db66a..5faa1dd9 100644
--- a/src/Network/Torrent/Tracker.hs
+++ b/src/Network/Torrent/Tracker.hs
@@ -127,9 +127,6 @@ instance BEncodable TResponse where
 instance URLShow PortNumber where
   urlShow = urlShow . fromEnum
 
-instance URLShow PeerID where
-  urlShow = BC.unpack . getPeerID
-
 instance URLShow Word32 where
   urlShow = show