6ca893fda81cc6126dec8135bf6c47910cc57fac diff --git a/src/middleware/auth.lisp b/src/middleware/auth.lisp index a775cd1..7d89a5a 100644 --- a/src/middleware/auth.lisp +++ b/src/middleware/auth.lisp @@ -69,7 +69,7 @@ :user-id user-id)) "not authorized"))))) -(defun @can? (ability next) +(defun @can? (next ability) (if (and *user* (member ability (gethash "permissions" *user*)