diff options
Diffstat (limited to 'service')
| -rw-r--r-- | service/logout-service.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/service/logout-service.lisp b/service/logout-service.lisp index d6aef8f..afc3ace 100644 --- a/service/logout-service.lisp +++ b/service/logout-service.lisp @@ -10,8 +10,9 @@ (:documentation "")) (defmethod initialize-instance :after ((logout-service logout-service) &key) + (setf (location logout-service) "/home") (setf (message logout-service) "You are now logged out.")) (defun logout-json () - (set-user (make-default-user)) + (setf (session-value :permissions) nil) (objects-to-json `(,(make-instance 'logout-service)))) |