From 4bed2594d05a47e2b7499577df6a662206048ac9 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 29 Apr 2007 20:50:44 +0000
Subject: [PATCH] Domain alias support for Exim

---
 src/plugins/exim.sml | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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
-- 
2.20.1