Allow all users to use "nogroup" as `your_group'

diff --git a/src/domain.sml b/src/domain.sml
index 2bcfe15..3e212a2 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -70,8 +70,9 @@ fun setUser user =
                                class = "domain"};
        your_usrs := Acl.class {user = getUser (),
                                class = "user"};
-       your_grps := Acl.class {user = getUser (),
-                               class = "group"};
+       your_grps := SS.add (Acl.class {user = getUser (),
+                                       class = "group"},
+                            "nogroup");
        your_pths := your_paths;
        readable_pths := SS.union (your_paths, world_readable);
        your_ipss := Acl.class {user = getUser (),