diff options
author | Mathieu Othacehe <othacehe@gnu.org> | 2020-09-06 14:42:40 +0200 |
---|---|---|
committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-09-06 14:42:40 +0200 |
commit | 33798abc3bb32af619ce350b479888d190021ae9 (patch) | |
tree | ab2822b8ccbc435ac07803a63dd88f1378b83302 | |
parent | d9879583afee201cb9a2fec6d5fd3a491247d475 (diff) | |
download | cuirass-33798abc3bb32af619ce350b479888d190021ae9.tar cuirass-33798abc3bb32af619ce350b479888d190021ae9.tar.gz |
Handle evaluations without timestamp.
This is a follow-up of d9879583afee201cb9a2fec6d5fd3a491247d475.
* src/cuirass/templates.scm (evaluation-build-table): Do not print evaluation
date if the "timestamp" field equals zero.
-rw-r--r-- | src/cuirass/templates.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm index f099a49..66d6de9 100644 --- a/src/cuirass/templates.scm +++ b/src/cuirass/templates.scm @@ -619,12 +619,14 @@ evaluation." `((p (@ (class "lead")) ,(format #f "Evaluation #~a" id)) - ,(if (= evaltime 0) - `(p ,(format #f "Evaluation started ~a." - (time->string timestamp))) - `(p ,(format #f "Evaluation completed ~a in ~a." - (time->string evaltime) - (seconds->string duration)))) + ,@(if (= timestamp 0) + '() + `((p ,(if (= evaltime 0) + (format #f "Evaluation started ~a." + (time->string timestamp)) + (format #f "Evaluation completed ~a in ~a." + (time->string evaltime) + (seconds->string duration)))))) (table (@ (class "table table-sm table-hover")) (thead (tr (th (@ (class "border-0") (scope "col")) "Input") |