[no subject]

[Ludovic Courtès]

branch: master
commit c91971a0630fcc07efd98109d37d9bf4b4f5ce5f
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Sep 3 15:29:31 2023 +0200

    templates: Properly type the case where the last evaluation failed.
    
    Fixes a bug introduced in c445d2d642765f9589313e9ccdd826ef9bf71432.
    
    * src/cuirass/templates.scm (specifications-table)[eval-summary]:
    Use the right record accessors.
    Call ‘eval-summary’ on ‘last-eval’.
---
 src/cuirass/templates.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index ea217d1..2b5cfd0 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -278,10 +278,8 @@ system whose names start with " (code "guile-") ":" (br)
 
   (define (eval-summary eval)
     (find (lambda (s)
-            (eq? (assq-ref s #:evaluation)
-                 (assq-ref
-                  (assq-ref eval #:evaluation)
-                  #:id)))
+            (= (evaluation-summary-id s)
+               (evaluation-id eval)))
           summaries))
 
   (define (summary->percentage summary)
@@ -410,7 +408,8 @@ system whose names start with " (code "guile-") ":" (br)
                                  (evaluation-summary-scheduled summary)))))
                            ((and last-eval (not last-eval-status-ok?))
                             `((center
-                               ,@(evaluation-badges last-eval #f))))
+                               ,@(evaluation-badges
+                                  (eval-summary last-eval) #f))))
                            (else '()))))
                      (td
                       ,@(let* ((name (specification-name spec))