diff options
Diffstat (limited to 'module/output')
-rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index f30e6338..42290ed9 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -120,8 +120,8 @@ (partition (lambda (ev) (or (date? (attr ev 'DTSTART)) (datetime<=? (datetime time: (time hour: 24)) - (datetime- (attr ev 'DTEND) - (attr ev 'DTSTART))))) + (datetime-difference (attr ev 'DTEND) + (attr ev 'DTSTART))))) (stream->list events)))) ;; (format (current-error-port) "lay-out-day: ~a~%" (date->string date)) (format (current-error-port) "long=~a, short=~a~%" |