guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: templates: Avoid type error when displaying a job


From: Ludovic Courtès
Subject: branch master updated: templates: Avoid type error when displaying a jobset without evaluations.
Date: Fri, 08 Sep 2023 16:06:11 -0400

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

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

The following commit(s) were added to refs/heads/master by this push:
     new 6131880  templates: Avoid type error when displaying a jobset without 
evaluations.
6131880 is described below

commit 613188072c468fe2ffa4e8f83b48aefeb2488a2c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Sep 7 16:45:49 2023 +0200

    templates: Avoid type error when displaying a jobset without evaluations.
    
    Previously we’d pass #f to ‘eval-summary’ for jobsets that do not have
    any successful evaluation.
    
    * src/cuirass/templates.scm (specifications-table): Correctly handle
    ‘spec->latest-eval-ok’ returning #f.
---
 src/cuirass/templates.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index dfcb424..254d7f2 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -368,9 +368,9 @@ system whose names start with " (code "guile-") ":" (br)
                       (@
                        (style "vertical-align: middle"))
                       ,@(let* ((summary
-                                (eval-summary
-                                 (spec->latest-eval-ok
-                                  (specification-name spec))))
+                                (and=> (spec->latest-eval-ok
+                                        (specification-name spec))
+                                       eval-summary))
                                (last-eval
                                 (spec->latest-eval
                                  (specification-name spec)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]