- app (fn node => TextIO.closeOut
- (Domain.domainFile {node = node,
- name = "mail"})) nodes
+ app (fn node => #close
+ (Domain.domainsFile {node = node,
+ name = "mail"}) ()) nodes
+ end)
+
+val () = Env.actionV_none "relayMail"
+ (fn env =>
+ let
+ val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
+ in
+ app (fn node => #close
+ (Domain.domainsFile {node = node,
+ name = "mail.relay"}) ()) nodes