From 09f21b7abfdbe78a515833760f7567bd23614757 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Wed, 23 Dec 2020 18:40:07 -0700 Subject: moved json functions to separate library --- service/login-service.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'service/login-service.lisp') 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))))) -- cgit v1.3