2 files changed, 4 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
diff --git a/src/Network/DHT/Types.hs b/src/Network/DHT/Types.hs
index 91d1fc22..73a7be65 100644
--- a/src/Network/DHT/Types.hs
+++ b/src/Network/DHT/Types.hs
@@ -78,6 +78,7 @@ foundNodesMessage ns = NodeFound ns
 class Kademlia dht where
     data DHTData dht ip
     dhtAdjustID :: Address ip => Proxy dht -> NodeId dht -> SockAddr -> Event dht ip u -> NodeId dht
+    dhtAdjustID _ nid _ _ = nid
     namePing :: Proxy dht -> QueryMethod dht
     nameFindNodes :: Proxy dht -> QueryMethod dht
     initializeDHTData :: IO (DHTData dht ip)