[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: Add weather support in build details.
From: |
Mathieu Othacehe |
Subject: |
branch master updated: Add weather support in build details. |
Date: |
Mon, 01 Feb 2021 09:15:34 -0500 |
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 f9a5cbe Add weather support in build details.
f9a5cbe is described below
commit f9a5cbe0dd48073c4341c7b26c18b87f2e8ffddc
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Feb 1 15:15:13 2021 +0100
Add weather support in build details.
* src/cuirass/templates.scm (build-details): Display weather.
---
src/cuirass/templates.scm | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 84fde8a..111fc3b 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -244,6 +244,7 @@ system whose names start with " (code "guile-") ":" (br)
(define (build-details build products)
"Return HTML showing details for the BUILD."
(define status (assq-ref build #:status))
+ (define weather (assq-ref build #:weather))
(define blocking-outputs
(or (and-let* (((= (build-status failed-dependency) status))
(drv (false-if-exception
@@ -307,6 +308,11 @@ system whose names start with " (code "guile-") ":" (br)
(td ,(if completed?
(time->string (assq-ref build #:stoptime))
"—")))
+ (tr (th "Weather")
+ (td (span (@ (class ,(weather-class weather))
+ (title ,(weather-title weather))
+ (aria-hidden "true"))
+ "")))
(tr (th "Log file")
(td (a (@ (href "/build/" ,(assq-ref build #:id) "/log/raw"))
"raw")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: Add weather support in build details.,
Mathieu Othacehe <=