From d1ab7e7cfe14f2cad9774db47f4f1dd995e5b40c Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Fri, 10 Aug 2018 16:46:05 +0200 Subject: Adds some progress on user registration. --- src/shared/struct/shr_db_user.erl | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/shared/struct/shr_db_user.erl') diff --git a/src/shared/struct/shr_db_user.erl b/src/shared/struct/shr_db_user.erl index 01840e2..991fb64 100644 --- a/src/shared/struct/shr_db_user.erl +++ b/src/shared/struct/shr_db_user.erl @@ -4,8 +4,8 @@ %% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -type db_named_user() :: {'user', any()}. --type db_user() :: (db_named_user() | 'admin' | 'any'). --type db_permission() :: (list(db_named_user()) | 'any'). +-type db_user() :: (db_named_user() | 'admin' | 'any' | 'janitor'). +-type db_permission() :: (list(db_named_user()) | 'any' | 'janitor'). -type user() :: db_user(). @@ -27,5 +27,9 @@ -spec can_access (permission(), user()) -> boolean(). can_access (_, admin) -> true; can_access (any, _) -> true; -can_access (List, {'user', User}) -> - lists:member(User, List). +can_access (janitor, janitor) -> true; +can_access (List, {user, User}) -> + lists:member({user, User}, List); +can_access (janitor, janitor) -> true; +can_access (List, janitor) -> + lists:member(janitor, List). -- cgit v1.2.3-70-g09d2