Enable toxtcp network for IPv4-only mode.

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
                     }
                 dhts = Map.fromList $
                         ("tox4", toxDHT Tox.routing4 Want_IP4)
-                        : if ip6tox opts
+                        : (if ip6tox opts
                             then [ ("tox6", toxDHT Tox.routing6 Want_IP6) ]
-                            else []
+                            else [])
                         ++ [("toxtcp", tcpDHT)]
                 ips :: IO [SockAddr]
                 ips = readExternals Tox.nodeAddr [ Tox.routing4 $ Tox.toxRouting tox