diff options
-rw-r--r-- | src/cuirass/templates.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm index 1c089a4..27bb51f 100644 --- a/src/cuirass/templates.scm +++ b/src/cuirass/templates.scm @@ -234,6 +234,10 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs." (define status (assq-ref build #:buildstatus)) + (define completed? + (or (= (build-status succeeded) status) + (= (build-status failed) status))) + `(tr (td ,(cond ((= (build-status succeeded) status) @@ -263,15 +267,16 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs." "")))) (th (@ (scope "row")),(assq-ref build #:id)) (td ,(assq-ref build #:jobset)) - (td ,(if (or (= (build-status succeeded) status) - (= (build-status failed) status)) + (td ,(if completed? (time->string (assq-ref build #:stoptime)) "—")) (td ,(assq-ref build #:job)) (td ,(assq-ref build #:nixname)) (td ,(assq-ref build #:system)) - (td (a (@ (href "/build/" ,(assq-ref build #:id) "/log/raw")) - raw)))) + (td ,(if completed? + `(a (@ (href "/build/" ,(assq-ref build #:id) "/log/raw")) + "raw") + "—")))) (define (build-id build) (match build |