1 files changed, 6 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/DHT/Token.hs b/src/Network/BitTorrent/DHT/Token.hs
index 7aaaf2b7..3f71aabe 100644
--- a/src/Network/BitTorrent/DHT/Token.hs
+++ b/src/Network/BitTorrent/DHT/Token.hs
@@ -40,8 +40,10 @@ module Network.BitTorrent.DHT.Token
 import Control.Monad.State
 import Data.BEncode (BEncode)
 import Data.ByteString as BS
+import Data.ByteString.Char8 as B8
 import Data.ByteString.Lazy as BL
 import Data.ByteString.Lazy.Builder as BS
+import qualified Data.ByteString.Base16 as Base16
 import Data.Default
 import Data.List as L
 import Data.Hashable
@@ -55,7 +57,10 @@ import Network.BitTorrent.Address
 
 -- | An opaque value.
 newtype Token = Token BS.ByteString
-  deriving (Show, Eq, BEncode, IsString)
+  deriving (Eq, BEncode, IsString)
+
+instance Show Token where
+    show (Token bs) = B8.unpack $ Base16.encode bs
 
 -- | Meaningless token, for testing purposes only.
 instance Default Token where