summaryrefslogtreecommitdiff
path: root/examples/dhtd.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r--examples/dhtd.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 5279ea54..7562f2ad 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1303,6 +1303,7 @@ initTox opts ssvar keysdb mbxmpp = case porttox opts of
1303 Nothing -> \_ _ _ -> return () 1303 Nothing -> \_ _ _ -> return ()
1304 Just xmpp -> onNewToxSession xmpp ssvar) 1304 Just xmpp -> onNewToxSession xmpp ssvar)
1305 (dhtkey opts) 1305 (dhtkey opts)
1306 (\_ _ -> return ()) -- TODO: TCP relay send
1306 (quitTox, toxStrap4, toxStrap6) <- Tox.forkTox tox True 1307 (quitTox, toxStrap4, toxStrap6) <- Tox.forkTox tox True
1307 1308
1308 toxSearches <- atomically $ newTVar Map.empty 1309 toxSearches <- atomically $ newTVar Map.empty