Initialize Tox secret key.

1 files changed, 6 insertions, 7 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 993727b5..d9b02c41 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -69,6 +69,7 @@ import Data.Typeable
 import GHC.Generics
 import Data.Bool
 import System.Random
+import Network.DatagramServer.Mainline (PacketDestination(..))
 
 mkNodeAddr :: SockAddr -> NodeAddr IPv4
 mkNodeAddr addr = NodeAddr (fromJust $ fromSockAddr addr)
@@ -462,13 +463,11 @@ clientSession bt tox signalQuit isBt sock n h = do
                     let (hs,as) = second (dropWhile isSpace) $ break isSpace s
                         parse = do ih <- readEither hs
                                    a <- readEither as
-                                   -- XXX: using 'InfoHash' only because 'NodeId' currently
-                                   -- has no 'Read' instance.
-                                   return (ih, a :: NodeAddr IPv4)
+                                   return (ih, a) --  :: NodeAddr IPv4)
                     case parse of
                         Right (ih,a) -> do
                             nodeIdType ih
-                            nodeAddrType a
+                            -- nodeAddrType a
                             proxy <- dhtType
                             let fn = findNodeMessage proxy ih
                             ipType fn
@@ -484,10 +483,10 @@ clientSession bt tox signalQuit isBt sock n h = do
                     let (hs,as) = second (dropWhile isSpace) $ break isSpace s
                         parse = do ih <- readEither hs
                                    a <- readEither as
-                                   return (ih :: InfoHash, a :: NodeAddr IPv4)
+                                   return (ih :: InfoHash, a)
                     case parse of
                         Right (ih,a) -> do
-                            result <- try $ queryNode' (a ::NodeAddr IPv4) $ GetPeers ih
+                            result <- try $ queryNode' a $ GetPeers ih
                             let rs = either (pure . ( (,) "error" ) . showQueryFail) reportPeers result
                             return $ do
                             hPutClient h $ showReport rs
@@ -591,7 +590,7 @@ main = do
             () <- takeMVar signalQuit
             quitListening srv
 
-    bootstrap saved_nodes bs
+    bootstrap saved_nodes (map (MainlineNode . toSockAddr) bs)
 
     b <- isBootstrapped
     tbl <- getTable