diff options
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r-- | examples/dhtd.hs | 1 |
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 |