diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2026-01-06 18:56:24 -0700 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2026-01-06 18:56:24 -0700 |
| commit | a5fd76880291ea8135ee6b9a433082ed7fd11564 (patch) | |
| tree | 8f0f57f5bff89ec9a0a724774915965941347c36 /lisp/service/octopus-machines-with-roles-service.lisp | |
| parent | db5241f5f05209ca23b380eff9d52bf653bd5b29 (diff) | |
[INF-18492] Automate Queue Retry and Log Streaming Retry octopus fix
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))))) |