Implemented instance Kademlia Tox.Message

1 files changed, 3 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index e4716d1a..6dbc1120 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -225,7 +225,10 @@ ipType _ = return ()
 
 instance Kademlia Tox.Message where
     data DHTData Tox.Message ip = ToxData
+    namePing      _ = Tox.Ping
+    nameFindNodes _ = Tox.GetNodes
     initializeDHTData = return ToxData
+
 instance Pretty (NodeId Tox.Message) where
 instance Pretty (NodeInfo Tox.Message IPv4 ()) where
 instance Pretty (NodeInfo Tox.Message IPv4 Bool) where -- TODO