Successful toxid announce.

1 files changed, 9 insertions, 7 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 1e2c1467..e285d2d2 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -45,7 +45,7 @@ import Control.Concurrent.Lifted
 import GHC.Conc                  (labelThread)
 #endif
 
-import Crypto.Tox (zeros32,SecretKey,PublicKey, generateSecretKey, toPublic, encodeSecret, decodeSecret, userKeys)
+import Crypto.Tox -- (zeros32,SecretKey,PublicKey, generateSecretKey, toPublic, encodeSecret, decodeSecret, userKeys)
 import Network.UPNP as UPNP
 import Network.Address hiding (NodeId, NodeInfo(..))
 import Network.Kademlia.Search
@@ -699,7 +699,7 @@ main = do
                                                                 <*> Tox.announceH (Tox.toxRouting tox)
                                                                                   (Tox.toxTokens tox)
                                                                                   (Tox.toxAnnouncedKeys tox)
-                                                                                  (Tox.OnionDestination ni Nothing)
+                                                                                  (Tox.OnionDestination Tox.SearchingAlias ni Nothing)
                                                                                   (Tox.AnnounceRequest zeros32 nid Tox.zeroID))
                                                          show -- PublicKey
                                                          (fmap show))
@@ -714,15 +714,17 @@ main = do
                                                                             (Tox.onionTimeout tox)
                                                                             (Tox.toxCryptoKeys tox)
                                                                             (Tox.toxOnion tox)
-                                                                            pubkey
-                                                                            token
+                                                                            (pubkey :: PublicKey)
+                                                                            (token :: Nonce32)
                                                                             ni
                                                                     Nothing -> return Nothing
-                                                               , announceParseData = \str tokstr ->
-                                                                    return $ do
+                                                               , announceParseData = \str tokstr -> do
+                                                                    r <- return $ do
                                                                         pubkey <- Tox.id2key <$> readEither str
                                                                         tok <- readEither tokstr
-                                                                        Right (pubkey,tok)
+                                                                        Right (pubkey :: PublicKey, tok :: Nonce32)
+                                                                    hPutStrLn stderr ("PARSED(toxid): "++show (fmap (Control.Arrow.first Tox.key2id) r))
+                                                                    return r
                                                                })]
                     }
                 dhts = Map.fromList $