Re: ci for wip-haskell-updates

[Robert Vollmert]

> On 22. Jul 2019, at 22:44, Robert Vollmert <address@hidden> wrote:
> 
> 
> 
>> On 22. Jul 2019, at 21:50, Robert Vollmert <address@hidden> wrote:
>> 
>> Hi Ricardo,
>> 
>>> On 22. Jul 2019, at 21:01, Ricardo Wurmus <address@hidden> 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:

Apologies, I’d truncated the patch. A dedicated “started” icon would
be nice, too, but I didn’t find anything fitting in the font.

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index ab1b85c..7fab879 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"))
+             " Other failure"))
+     ((= (build-status canceled) status)
+      `(span (@ (class "oi oi-question-mark text-warning")
+                (title "Canceled"))
+             " Canceled"))
      (else
-      `(span (@ (class "oi oi-x text-danger")
-                (title "Failed"))
-             " Failed"))))
+      `(span (@ (class "oi oi-warning text-danger")
+                (title "Invalid status"))
+             " Invalid status"))))
   (define blocking-outputs
     (or (and-let* (((= (build-status failed-dependency) status))
                    (drv (false-if-exception