guix-commits
[Top][All Lists]
Advanced

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

[no subject]


From: Ludovic Courtès
Date: Wed, 18 Oct 2023 10:04:50 -0400 (EDT)

branch: master
commit e9c27b7ce582272a06b18ee703703244e39ef563
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Oct 18 16:03:07 2023 +0200

    templates: Do not show “Weather” row when weather is unknown.
    
    * src/cuirass/templates.scm (build-details): Do not emit “Weather” row
    when WEATHER is unknown.
---
 src/cuirass/templates.scm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 1812820..f315ab9 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -774,13 +774,15 @@ the existing SPEC otherwise."
           (td ,(if (completed? status)
                    (time->string (build-completion-time build))
                    "—")))
-      (tr (th "Weather")
-          (td (span (@ (class ,(weather-class weather))
-                       (title ,(weather-title weather))
-                       (aria-hidden "true"))
-                    "")
-              " " ,(weather-title weather)
-              ,@(build-failure-info build)))
+      ,@(if (= (build-weather unknown) weather)
+            '()
+            `((tr (th "Weather")
+                  (td (span (@ (class ,(weather-class weather))
+                               (title ,(weather-title weather))
+                               (aria-hidden "true"))
+                            "")
+                      " " ,(weather-title weather)
+                      ,@(build-failure-info build)))))
       (tr (th "Log file")
           (td ,(if (or (= (build-status started) status)
                        (= (build-status succeeded) status)



reply via email to

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