Fix bug where inactive branches were counted as failures
authorFrank Duncan <frank.d.duncan@gmail.com>
Sat, 18 Dec 2021 20:19:40 +0000 (14:19 -0600)
committerFrank Duncan <frank.d.duncan@gmail.com>
Sat, 18 Dec 2021 20:19:40 +0000 (14:19 -0600)
src/main/server.lisp

index 7d7af0b8113767bde967a93be51cf4507b930e04..338516bed5eae32303ce221773db87296cb09b63 100644 (file)
   ((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*)))))