1 files changed, 2 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 68074e2b..c58b75e1 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -37,7 +37,7 @@ import Network.BitTorrent.DHT.Search
 import Network.BitTorrent.DHT.Query
 import Network.BitTorrent.DHT.Message (FindNode(..),NodeFound(..),GetPeers(..),GotPeers(..))
 import Network.KRPC.Manager (QueryFailure(..))
-import Network.KRPC.Message (ReflectedIP(..))
+import Network.KRPC.Message (ReflectedIP(..),KMessageOf)
 import qualified Network.BitTorrent.DHT.Routing as R
 import Network.BitTorrent.DHT.Session
 import Network.SocketLike
@@ -71,7 +71,7 @@ showReport kvs = do
     (k,v) <- kvs
     concat [ printf "  %-*s" (colwidth+1) k, v, "\n" ]
 
-showEnry :: Show a => (NodeInfo a, t) -> [Char]
+showEnry :: Show a => (NodeInfo KMessageOf a (), t) -> [Char]
 showEnry (n,_) = intercalate " "
     [ show $ pPrint (nodeId n)
     , show $ nodeAddr n