X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/5543e924e43797dc352f5498438293606e0fd574..99cc41443c07f97535eaeecc628d99075ca2cebf:/src/plugins/exim.sml

diff --git a/src/plugins/exim.sml b/src/plugins/exim.sml
index 8b0485b..461fab1 100644
--- 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
-		 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"
@@ -95,9 +95,9 @@ val () = Env.actionV_none "relayMail"
 	     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