1 files changed, 4 insertions, 0 deletions

diff --git a/dht/src/Network/Tox/NodeId.hs b/dht/src/Network/Tox/NodeId.hs
index a3ddd617..d05e3697 100644
--- a/dht/src/Network/Tox/NodeId.hs
+++ b/dht/src/Network/Tox/NodeId.hs
@@ -41,6 +41,7 @@ module Network.Tox.NodeId
     , showToken32
     , show32Token32
     , nodeInfoFromJSON
+    , showHexId
     ) where
 
 import Control.Applicative
@@ -174,6 +175,9 @@ instance S.Serialize NodeId where
     get = key2id <$> getPublicKey
     put nid = putPublicKey $ id2key nid
 
+showHexId :: NodeId -> String
+showHexId nid = C8.unpack $ Base16.encode $ BA.convert $ id2key nid
+
 instance Hashable NodeId where
     hashWithSalt salt (NodeId ws _) = hashWithSalt salt (head ws)