diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-10-23 15:46:10 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-10-23 15:46:10 +0200 |
| commit | 80b6e89a7b2e9a6f9dee26dcf22277970930039f (patch) | |
| tree | 0f9a9949a139f072cf243eb371db4dc355f54f51 | |
| parent | c8c34f8ee3a62ab3d86a65bae2a4ddafd619088f (diff) | |
| download | cuirass-80b6e89a7b2e9a6f9dee26dcf22277970930039f.tar cuirass-80b6e89a7b2e9a6f9dee26dcf22277970930039f.tar.gz | |
templates: Failed evaluations link to their log.
* src/cuirass/templates.scm (evaluation-badges): Link to
/eval/ID/log/raw in the 'zero?' case.
| -rw-r--r-- | src/cuirass/templates.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm index c584dae..059493c 100644 --- a/src/cuirass/templates.scm +++ b/src/cuirass/templates.scm @@ -257,10 +257,11 @@ ;; an evaluation failed, assume that it failed when it produced zero ;; build jobs. (if (zero? (+ succeeded failed scheduled)) - `((span (@ (class "oi oi-x text-danger") - (title "Failed") - (aria-hidden "true")) - "")) + `((a (@ (href "/eval/" ,(assq-ref evaluation #:id) "/log/raw") + (class "oi oi-x text-danger") + (title "Failed") + (aria-hidden "true")) + "")) `((a (@ (href "/eval/" ,(assq-ref evaluation #:id) "?status=succeeded") (class "badge badge-success") (title "Succeeded")) |