Domain alias support for Exim

[hcoop/domtool2.git] / src / plugins / exim.sml

diff --git a/src/plugins/exim.sml b/src/plugins/exim.sml
index 8b0485b..461fab1 100644 (file)
--- a/src/plugins/exim.sml
+++ b/src/plugins/exim.sml
@@ -85,9 +85,9 @@ val () = Env.actionV_none "handleMail"
             let
                 val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
             in
             let
                 val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
             in

-                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"
             end)
 
 val () = Env.actionV_none "relayMail"


@@ -95,9 +95,9 @@ val () = Env.actionV_none "relayMail"
             let
                 val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
             in
             let
                 val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
             in

-                app (fn node => TextIO.closeOut
-                                    (Domain.domainFile {node = node,
-                                                        name = "mail.relay"})) nodes
+                app (fn node => #close
+                                    (Domain.domainsFile {node = node,
+                                                         name = "mail.relay"}) ()) nodes

             end)
 
 end
             end)
 
 end