Server executing client's requested configuration with the right permissions
[hcoop/domtool2.git] / src / plugins / exim.sml
index a93b732..0744fce 100644 (file)
@@ -24,9 +24,9 @@ open Ast
 
 val dl = ErrorMsg.dummyLoc
 
-val _ = Main.registerDefault ("MailNodes",
-                             (TList (TBase "node", dl), dl),
-                             (EList (map (fn s => (EString s, dl)) Config.Exim.aliasTo), dl))
+val _ = Defaults.registerDefault ("MailNodes",
+                                 (TList (TBase "node", dl), dl),
+                                 (fn () => (EList (map (fn s => (EString s, dl)) Config.Exim.aliasTo), dl)))
 
 val aliasesChanged = ref false
 val aliasesDefaultChanged = ref false