Easy_domain: Use DefaultAliasSource for DefaultAlias

[hcoop/domtool2.git] / lib / easy_domain.dtl

diff --git a/lib/easy_domain.dtl b/lib/easy_domain.dtl
index 60295b2..26f1eb7 100644 (file)
--- a/lib/easy_domain.dtl
+++ b/lib/easy_domain.dtl
@@ -37,7 +37,8 @@ val webAtIp =
 
 val addDefaultAlias = begin
   mailbox <- Mailbox;
 
 val addDefaultAlias = begin
   mailbox <- Mailbox;

-  defaultAlias mailbox
+  source <- DefaultAliasSource;
+  aliasPrim source (addressTarget mailbox)

 end;
 
 val addWww = begin
 end;
 
 val addWww = begin