aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/main.lisp4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/main.lisp b/src/main.lisp
index 1d65531..f42b1f0 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -277,7 +277,9 @@
(defun api-token-authorization ()
"This request must be made with an API access token."
- (request-contributor))
+ (a:when-let (contributor (request-contributor))
+ (or (not (contributor-lockedp contributor))
+ (adminp contributor))))
;;; DATABASE TRANSACTIONS