From 09ef79e902dcf475d6cd9dc34bc74a46b39150c3 Mon Sep 17 00:00:00 2001 From: Frank Duncan Date: Sat, 18 Dec 2021 10:47:36 -0600 Subject: [PATCH] Failures handles invalid project name gracefully --- src/main/server.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/main/server.lisp b/src/main/server.lisp index 035ba4c..f086aa2 100644 --- a/src/main/server.lisp +++ b/src/main/server.lisp @@ -149,10 +149,10 @@ *all-project*)) (defun failures (project-name) - (length - (remove-if-not - (lambda (branch) (eql :failed (job-status (branch-job branch)))) - (if project-name - (find-branch-by-project - (find project-name *all-project* :test #'string= :key #'project-name)) - *all-branch*)))) + (let + ((project (when project-name (find project-name *all-project* :test #'string= :key #'project-name)))) + (when (and project-name (not project)) (raise-candle-error :project-does-not-exist)) + (length + (remove-if-not + (lambda (branch) (eql :failed (job-status (branch-job branch)))) + (if project (find-branch-by-project project) *all-branch*))))) -- 2.25.1