diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-25 14:38:30 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-25 14:38:30 +0200 |
| commit | 4ec3d868872397abd47aef174d9a9233907837a9 (patch) | |
| tree | 0e55c89afb50e8ee79cad7802c08f39982fc11d7 | |
| parent | Add ice-9 format to datetime/util. (diff) | |
| download | calp-4ec3d868872397abd47aef174d9a9233907837a9.tar.gz calp-4ec3d868872397abd47aef174d9a9233907837a9.tar.xz | |
Terminal output end time now end time again.
| -rw-r--r-- | module/output/terminal.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index e94d971d..47367095 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -118,7 +118,7 @@ (date->string start))) (let ((end (attr ev 'DTEND))) (if (datetime? end) - (datetime->string (attr ev 'DTSTART) "~Y-~m-~d ~H:~M:~S") + (datetime->string (attr ev 'DTEND) "~Y-~m-~d ~H:~M:~S") (date->string end))) (unlines (take-to (flow-text (or (attr ev 'DESCRIPTION) "") #:width (min 70 width)) |