X-Git-Url: https://code.consxy.com/gitweb/?a=blobdiff_plain;f=src%2Fmain%2Fserver.lisp;h=3f022f387b4b70aab74f24b4d349f2d40dc9b92c;hb=4aa3c53883d919803cac77f47ad16ce33047f6ce;hp=7d7af0b8113767bde967a93be51cf4507b930e04;hpb=4c3171e265788043aba57ac742ecd232a1c6ffdf;p=candle

diff --git a/src/main/server.lisp b/src/main/server.lisp
index 7d7af0b..3f022f3 100644
--- a/src/main/server.lisp
+++ b/src/main/server.lisp
@@ -77,7 +77,9 @@
   ((project (find-project-by-name-or-die name))
    (branches (find-branch-by-project project)))
   (git project "fetch" "origin" "--prune")
-  (multiple-value-bind (success code out err) (git project "branch" "-r" "--format" "%(refname) %(objectname)" "--list" "origin/*")
+  (multiple-value-bind
+   (success code out err)
+   (git project "branch" "-r" "--format" "%(refname) %(objectname)" "--list" "origin/*")
    (declare (ignore code err))
    (when (not success) (raise-candle-error :project-failed-to-get-branches))
    (mapcar (lambda (branch) (set-branch-in-git branch nil)) branches)
@@ -135,8 +137,8 @@
      (find-if
       (lambda (job-sha)
        (and (<= (length sha) (length job-sha)) (string= sha (subseq job-sha 0 (length sha)))))
-     (find-job-by-project project)
-     :key #'job-sha))))
+      (find-job-by-project project)
+      :key #'job-sha))))
   (when (not job) (raise-candle-error :job-does-not-exist))
   job))
 
@@ -161,5 +163,5 @@
   ((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*)))))