branch: master
commit c91971a0630fcc07efd98109d37d9bf4b4f5ce5f
Author: Ludovic Courtès <[email protected]>
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))
