X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/861773ffb9c0affbdd26362581df23827316a0e1..284f3883a04dae06a49b39b4cbf2665c4acef159:/src/main.sml

diff --git a/src/main.sml b/src/main.sml
index 381badb..9530bcd 100644
--- a/src/main.sml
+++ b/src/main.sml
@@ -1285,9 +1285,9 @@ fun service () =
 					  if Acl.query {user = user, class = "priv", value = "all"}
 					     orelse List.all (fn dom => Acl.query {user = user, class = "domain", value = dom}) doms then
 					      (Domain.rmdom doms;
-					       app (fn dom =>
+					       (*app (fn dom =>
 						       Acl.revokeFromAll {class = "domain", value = dom}) doms;
-					       Acl.write Config.aclFile;
+					       Acl.write Config.aclFile;*)
 					       ("Removed domains" ^ foldl (fn (d, s) => s ^ " " ^ d) "" doms ^ ".",
 						NONE))
 					  else