diff options
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r-- | examples/dhtd.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index e111787c..2772416b 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
@@ -1566,9 +1566,9 @@ initTox opts ssvar keysdb mbxmpp invc = case porttox opts of | |||
1566 | } | 1566 | } |
1567 | dhts = Map.fromList $ | 1567 | dhts = Map.fromList $ |
1568 | ("tox4", toxDHT Tox.routing4 Want_IP4) | 1568 | ("tox4", toxDHT Tox.routing4 Want_IP4) |
1569 | : if ip6tox opts | 1569 | : (if ip6tox opts |
1570 | then [ ("tox6", toxDHT Tox.routing6 Want_IP6) ] | 1570 | then [ ("tox6", toxDHT Tox.routing6 Want_IP6) ] |
1571 | else [] | 1571 | else []) |
1572 | ++ [("toxtcp", tcpDHT)] | 1572 | ++ [("toxtcp", tcpDHT)] |
1573 | ips :: IO [SockAddr] | 1573 | ips :: IO [SockAddr] |
1574 | ips = readExternals Tox.nodeAddr [ Tox.routing4 $ Tox.toxRouting tox | 1574 | ips = readExternals Tox.nodeAddr [ Tox.routing4 $ Tox.toxRouting tox |