From 6e983617288abafcdcfd7fcf26fc246302a388f7 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Thu, 13 Dec 2018 18:37:07 +0100 Subject: ... --- src/ataxia_security.erl | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'src/ataxia_security.erl') 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; -- cgit v1.2.3-70-g09d2