X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=blobdiff_plain;f=src%2Fmain%2Fserver.lisp;h=f086aa24242e4d55f6036c2e8cd08d9b2c94001b;hp=035ba4ce164cc7dea5bd14ec243a6e9a21e01cd7;hb=09ef79e902dcf475d6cd9dc34bc74a46b39150c3;hpb=10415e960ac74f2c07f693295b063c586ccc608f

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*)))))