basic internal ipv6 support

[hcoop/domtool2.git] / src / main.sml

diff --git a/src/main.sml b/src/main.sml
index 3a31c34..dfe0bd5 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -1110,7 +1110,7 @@ fun regenerateEither tc checker context =
 
        val ok = ref true
  
 
        val ok = ref true
  

-       fun contactNode (node, ip) =
+       fun contactNode (node, ip, ipv6) =

            if node = Config.dispatcherName then
                Domain.resetLocal ()
            else let
            if node = Config.dispatcherName then
                Domain.resetLocal ()
            else let