| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/ataxia_security.erl')
| -rw-r--r-- | src/ataxia_security.erl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/ataxia_security.erl b/src/ataxia_security.erl index 6fbc7d1..97ed276 100644 --- a/src/ataxia_security.erl +++ b/src/ataxia_security.erl @@ -12,7 +12,8 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -export_type([user/0, permission/0]). --export([can_access/2, user_from_id/1]). +-export([can_access/2]). +-export([janitor/0, any/0, admin/0, user_from_id/1]). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -24,6 +25,15 @@ -spec user_from_id (any()) -> user(). user_from_id (ID) -> {user, ID}. +-spec janitor () -> user(). +janitor () -> janitor. + +-spec any () -> user(). +any () -> any. + +-spec admin () -> user(). +admin () -> admin. + -spec can_access (permission(), user()) -> boolean(). can_access (_, admin) -> true; can_access (any, _) -> true; |