From 4850ffaef859a3f33f03c5500602881e30b1039c Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 22 Dec 2020 20:57:44 -0700 Subject: Moved core to its own library --- service/logout-service.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'service') 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)))) -- cgit v1.3