diff options
Diffstat (limited to 'service/login-service.lisp')
| -rw-r--r-- | service/login-service.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/service/login-service.lisp b/service/login-service.lisp index 7007327..10e0722 100644 --- a/service/login-service.lisp +++ b/service/login-service.lisp @@ -22,7 +22,7 @@ (:label "Login" :field-type "button" :onclick "on_login_submit_clicked()"))))) (defun login-json () - (objects-to-json `(,(make-instance 'login-service)))) + (org-ckons-json::objects-to-json `(,(make-instance 'login-service)))) (defclass login-authenticate-service (rest-service) ((location-p :initarg :location-p @@ -40,4 +40,4 @@ (when (check-ldap-password (ldap *webapp*) dn password) (setf (session-value :permissions) "admin") (setf auth-result t)) - (objects-to-json `(,(make-instance 'login-authenticate-service :auth-result auth-result))))) + (org-ckons-json::objects-to-json `(,(make-instance 'login-authenticate-service :auth-result auth-result))))) |