dbms: use nodeIp instead of raw hostname

Should be using nodeIp like in all other cases where a node is
contacted.

diff --git a/src/main.sml b/src/main.sml
index 3079263..3a31c34 100644 (file)
--- 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