projects
/
candle
/ commitdiff
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
10415e9
)
Failures handles invalid project name gracefully
author
Frank Duncan <frank@kank.net>
Sat, 18 Dec 2021 16:47:36 +0000
(10:47 -0600)
committer
Frank Duncan <frank@kank.net>
Sat, 18 Dec 2021 16:47:36 +0000
(10:47 -0600)
src/main/server.lisp
patch
|
blob
|
history
diff --git
a/src/main/server.lisp
b/src/main/server.lisp
index 035ba4ce164cc7dea5bd14ec243a6e9a21e01cd7..f086aa24242e4d55f6036c2e8cd08d9b2c94001b 100644
(file)
--- a/
src/main/server.lisp
+++ b/
src/main/server.lisp
@@
-149,10
+149,10
@@
*all-project*))
(defun failures (project-name)
*all-project*))
(defun failures (project-name)
- (le
ngth
- (
remove-if-not
-
(lambda (branch) (eql :failed (job-status (branch-job branch))
))
- (if project-name
-
(find-branch-by-projec
t
-
(find project-name *all-project* :test #'string= :key #'project-name
))
-
*all-branch*
))))
+ (le
t
+ (
(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-no
t
+
(lambda (branch) (eql :failed (job-status (branch-job branch))
))
+
(if project (find-branch-by-project project) *all-branch*)
))))