From a5fd76880291ea8135ee6b9a433082ed7fd11564 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 6 Jan 2026 18:56:24 -0700 Subject: [INF-18492] Automate Queue Retry and Log Streaming Retry octopus fix --- lisp/service/octopus-machines-with-roles-service.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/service/octopus-machines-with-roles-service.lisp') 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))))) -- cgit v1.3