X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/9df38662233fd059ee2fd0df1f40404f00c4cd99..c23af4454e79f11677c808b3e05e9d14061f71b1:/src/main.sml

diff --git a/src/main.sml b/src/main.sml
index 3079263..dfe0bd5 100644
--- a/src/main.sml
+++ b/src/main.sml
@@ -542,7 +542,7 @@ fun requestDbUser dbtype =
     let
 	val (_, context) = requestContext (fn () => ())
 	val bio = OpenSSL.connect true (context,
-					Config.Dbms.dbmsNode ^ ":" ^ Int.toString Config.slavePort)
+					Domain.nodeIp Config.Dbms.dbmsNode ^ ":" ^ Int.toString Config.slavePort)
     in
 	Msg.send (bio, MsgCreateDbUser dbtype);
 	case Msg.recv bio of
@@ -1110,7 +1110,7 @@ fun regenerateEither tc checker context =
 
 	val ok = ref true
  
-	fun contactNode (node, ip) =
+	fun contactNode (node, ip, ipv6) =
 	    if node = Config.dispatcherName then
 		Domain.resetLocal ()
 	    else let