Should be using nodeIp like in all other cases where a node is
contacted.
let
val (_, context) = requestContext (fn () => ())
val bio = OpenSSL.connect true (context,
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
in
Msg.send (bio, MsgCreateDbUser dbtype);
case Msg.recv bio of