-val _ = Env.registerFunction ("dns_master_node",
- fn [] => SOME (EString Config.masterNode, dl)
- | _ => NONE)
-
-val _ = Env.registerFunction ("dns_slave_nodes",
- fn [] => SOME (EList (map (fn n => (EString n, dl)) Config.slaveNodes), dl)
- | _ => NONE)
-