diff options
| author | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-23 18:40:07 -0700 |
|---|---|---|
| committer | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-23 18:40:07 -0700 |
| commit | 09f21b7abfdbe78a515833760f7567bd23614757 (patch) | |
| tree | d85fd4a5ca71d4ab7fed0b330ad0b9ad71f26fc8 /service/login-service.lisp | |
| parent | 74da7d1d424e08c8504effe562318ca029eb3a6e (diff) | |
moved json functions to separate library
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))))) |