From 116554ad7fe82bf7df08be4ee8732e306eac38f1 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 18 Dec 2025 15:03:55 -0700 Subject: [INF-18465] Create an unhealthy targetgroup report --- lisp/service/octopus-projects-with-roles-service.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/service/octopus-projects-with-roles-service.lisp') diff --git a/lisp/service/octopus-projects-with-roles-service.lisp b/lisp/service/octopus-projects-with-roles-service.lisp index c3d9a67..627f346 100644 --- a/lisp/service/octopus-projects-with-roles-service.lisp +++ b/lisp/service/octopus-projects-with-roles-service.lisp @@ -38,7 +38,9 @@ (with-noauth (instance octopus-projects-with-roles/results-service) (cl-fad:with-output-to-temporary-file (f :template "/tmp/snow/temp-%") (get-octopus-projects-with-roles (make-instance 'octopus-process-step - :target-roles (remove-if (lambda (x) (org-ckons-core::null-or-empty-p x)) (cl-ppcre:split "[, ]" roles)) + :target-roles (remove-if (lambda (x) + (org-ckons-core::null-or-empty-p x)) + (cl-ppcre:split "[, ]" roles)) :stdout (pathname f))) (setf (stdout instance) (uiop:native-namestring (pathname f)))) (setf (session-value :octopus-roles) roles))) -- cgit v1.3