diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm index 84fde8adf9f54e66e289bcfab83c6f4cf38a346c..111fc3bfe785a40b01e4e2190a04397ecd730874 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")))