WIP: Adapting DHT to Tox network (part 6).

1 files changed, 4 insertions, 3 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index c58b75e1..f81e7131 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -5,6 +5,7 @@
 {-# LANGUAGE ScopedTypeVariables   #-}
 {-# LANGUAGE TupleSections         #-}
 {-# LANGUAGE RecordWildCards       #-}
+{-# LANGUAGE PartialTypeSignatures #-}
 {-# LANGUAGE CPP #-}
 
 import Control.Arrow
@@ -118,7 +119,7 @@ resume = do
             restore_attempt
     return saved_nodes
 
-godht :: String -> (NodeAddr IPv4 -> NodeId -> DHT IPv4 b) -> IO b
+godht :: String -> (NodeAddr IPv4 -> NodeId _ -> DHT IPv4 b) -> IO b
 godht p f = do
     a <- btBindAddr p False
     dht def { optTimeout = 5 } a noDebugPrints $ do
@@ -314,10 +315,10 @@ consip' (ReflectedIP ip) xs = ("to", show ip) : xs
 
 reportPong (info,myip) = maybe id consip myip [show $ pPrint info]
 
-reportNodes :: (NodeId, NodeFound IPv4, Maybe ReflectedIP) -> [String]
+reportNodes :: (NodeId _, NodeFound IPv4, Maybe ReflectedIP) -> [String]
 reportNodes (nid,NodeFound ns,myip) = maybe id consip myip $ show (pPrint nid) : map (show . pPrint) ns
 
-reportPeers :: (NodeId, GotPeers IPv4, Maybe ReflectedIP) -> [(String,String)]
+reportPeers :: (NodeId _, GotPeers IPv4, Maybe ReflectedIP) -> [(String,String)]
 reportPeers (nid,GotPeers r tok,myip)
     = maybe id consip' myip $ ("from", show (pPrint nid))
      : ("token", show tok)