branch master updated: templates: Handle specifications with no evaluations.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 39b851b  templates: Handle specifications with no evaluations.
39b851b is described below

commit 39b851bfe728540349d59d898e3489a63c401d61
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Dec 2 10:55:23 2021 +0100

    templates: Handle specifications with no evaluations.
    
    * src/cuirass/templates.scm (specifications-table): Handle specifications 
with
    no evaluations.
---
 src/cuirass/templates.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 91d9a4d..3cfe5ee 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -371,8 +371,9 @@ system whose names start with " (code "guile-") ":" (br)
                                 (spec->latest-eval
                                  (specification-name spec)))
                                (last-eval-status-ok?
-                                (<= (assq-ref last-eval #:status)
-                                    (evaluation-status succeeded)))
+                                (and last-eval
+                                     (<= (assq-ref last-eval #:status)
+                                         (evaluation-status succeeded))))
                                (percentage
                                 (and summary (summary->percentage summary)))
                                (style
@@ -407,7 +408,7 @@ system whose names start with " (code "guile-") ":" (br)
                                 (@ (class "badge badge-secondary")
                                    (title "Scheduled"))
                                 ,(assq-ref summary #:scheduled)))))
-                           ((not last-eval-status-ok?)
+                           ((and last-eval (not last-eval-status-ok?))
                             `((center
                                ,@(evaluation-badges last-eval #f))))
                            (else '()))))