("hostname", Env.string)
(fn host =>
let
- val outf = Domain.domainFile {node = Config.Mailman.node,
- name = "mailman"}
+ val {write, writeDom, close} = Domain.domainsFile {node = Config.Mailman.node,
+ name = "mailman"}
in
- TextIO.output (outf, "\t'");
- TextIO.output (outf, host);
- TextIO.output (outf, "' : '");
- TextIO.output (outf, Domain.currentDomain ());
- TextIO.output (outf, "',\n");
- TextIO.closeOut outf
+ write "\t'";
+ write host;
+ write "' : '";
+ writeDom ();
+ write "',\n";
+ close ()
end)
val mailmanChanged = ref false
else
())
+val () = Domain.registerDescriber (Domain.considerAll
+ [Domain.Filename {filename = "mailman",
+ heading = "Mailman web host mapping",
+ showEmpty = false}])
+
end