Re: ci for wip-haskell-updates

[Robert Vollmert <rob@vllmrt.net>]

> On 22. Jul 2019, at 21:50, Robert Vollmert <rob@vllmrt.net> wrote:
> 
> Hi Ricardo,
> 
>> On 22. Jul 2019, at 21:01, Ricardo Wurmus <rekado@elephly.net> wrote:
>> 
>>> Now I was wondering how to get CI to test that.
>> 
>> Adding branches is currently done manually.  I’ll just update the
>> table of branches to build on ci.guix.gnu.org in a few minutes.
> 
> nice, thanks!
> 
> The current status of the evaluation of wip-haskell-updates is quite
> confusing. There are a number of jobs listed as “Scheduled” with a red
> X mark at the front. Is this a bug?

I think I found what causes this: Those jobs were actually in state
“started”, which fell through to failed.

The patch below should complete the list, and make falling through
noticeable:

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index ab1b85c..71183b2 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -130,27 +130,40 @@
   (define status (assq-ref build #:status))
   (define display-status
     (cond
-     ((= (build-status succeeded) status)
-      `(span (@ (class "oi oi-check text-success")
-                (title "Succeeded"))
-             " Success"))
      ((= (build-status scheduled) status)
       `(span (@ (class "oi oi-clock text-warning")
                 (title "Scheduled")
                 (aria-hidden "true"))
              " Scheduled"))
-     ((= (build-status canceled) status)
-      `(span (@ (class "oi oi-question-mark text-warning")
-                (title "Canceled"))
-             " Canceled"))
+     ((= (build-status started) status)
+      `(span (@ (class "oi oi-clock text-warning")
+                (title "Started")
+                (aria-hidden "true"))
+             " Started"))
+     ((= (build-status succeeded) status)
+      `(span (@ (class "oi oi-check text-success")
+                (title "Succeeded"))
+             " Success"))
+     ((= (build-status failed) status)
+      `(span (@ (class "oi oi-x text-danger")
+                (title "Failed"))
+             " Failed"))
      ((= (build-status failed-dependency) status)
       `(span (@ (class "oi oi-warning text-danger")
                 (title "Dependency failed"))
              " Dependency failed"))
+     ((= (build-status failed-other) status)
+      `(span (@ (class "oi oi-warning text-danger")
+                (title "Other failure"))
+             "  failed"))
+     ((= (build-status canceled) status)
+      `(span (@ (class "oi oi-question-mark text-warning")
+                (title "Canceled"))