Fix bug where inactive branches were counted as failures

diff --git a/src/main/server.lisp b/src/main/server.lisp
index 7d7af0b8113767bde967a93be51cf4507b930e04..338516bed5eae32303ce221773db87296cb09b63 100644 (file)
--- a/src/main/server.lisp
+++ b/src/main/server.lisp
@@ -161,5 +161,5 @@
   ((project (find-project-by-name-or-die project-name)))
   (length
    (remove-if-not
   ((project (find-project-by-name-or-die project-name)))
   (length
    (remove-if-not

-    (lambda (branch) (eql :failed (job-status (branch-job branch))))
+    (lambda (branch) (and (branch-in-git branch) (eql :failed (job-status (branch-job branch)))))

     (if project (find-branch-by-project project) *all-branch*)))))
     (if project (find-branch-by-project project) *all-branch*)))))