X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/0c3785870c3ad0ec9e42d6704939b98e707df64a..563e77927eb5faaae4571bd2b0811de590368581:/src/domain.sml

diff --git a/src/domain.sml b/src/domain.sml
index 700fac1..63b039c 100644
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -989,4 +989,15 @@ val () = Env.registerAction ("domainHost",
 					   (EString (host ^ "." ^ currentDomain ()), dl))
 			      | (_, args) => Env.badArgs ("domainHost", args))
 
+val ouc = ref (fn () => ())
+
+fun registerOnUsersChange f =
+    let
+	val f' = !ouc
+    in
+	ouc := (fn () => (f' (); f ()))
+    end
+
+fun onUsersChange () = !ouc ()
+
 end