diff options
Diffstat (limited to 'lisp/service/octopus-machines-with-roles-service.lisp')
| -rw-r--r-- | lisp/service/octopus-machines-with-roles-service.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/service/octopus-machines-with-roles-service.lisp b/lisp/service/octopus-machines-with-roles-service.lisp index b9bf74f..e20d55f 100644 --- a/lisp/service/octopus-machines-with-roles-service.lisp +++ b/lisp/service/octopus-machines-with-roles-service.lisp @@ -37,6 +37,6 @@ (defun octopus-machines-with-roles-results-json (roles) (with-noauth (instance octopus-machines-with-roles/results-service) (with-octopus (octopus) - (let ((machines (get-octopus-machines-with-roles octopus (remove-if (lambda (x) (org-ckons-core::null-or-empty-p x)) (cl-ppcre:split "[, ]" roles))))) + (let ((machines (get-octopus-machines-with-roles octopus (split-text-input roles)))) (setf (results instance) (loop for machine in machines collect (sanitize machine))) (setf (session-value :octopus-roles) roles))))) |