(fn () => ())
| MsgReUsers =>
- doIt (fn () => (usersChanged ();
- ("Users change callbacks run", NONE)))
+ doIt (fn () => if Acl.query {user = user, class = "priv", value = "regen"}
+ orelse Acl.query {user = user, class = "priv", value = "all"} then
+ (usersChanged ();
+ ("Users change callbacks run", NONE))
+ else
+ ("Unauthorized user asked to reusers!",
+ SOME "You aren't authorized to regenerate files."))
(fn () => ())
| _ =>