From e7c99e14691e768e0c3e7c54049301183ddfc32f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 24 Mar 2020 22:52:57 +0100 Subject: Change date{,time}-difference to hopefully sensible types. --- module/vcomponent/recurrence/generate.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/vcomponent/recurrence/generate.scm') diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index ac8a6ad8..ce64e741 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -78,7 +78,7 @@ (set! (attr e 'DTEND) (if (date? start) (date+ start change) - (datetime+ start (datetime time: change)))))))) + (datetime+ start change))))))) e)) @@ -153,7 +153,7 @@ ;; according to RFC 5545 3.8.2.2 (Date-Time End). (if (date? end) (date-difference end (attr event 'DTSTART)) - (time second: (datetime-difference end (attr event 'DTSTART)))))])) + (datetime-difference end (attr event 'DTSTART))))])) (if (attr event "RRULE") (recur-event-stream event (parse-recurrence-rule (attr event "RRULE") -- cgit v1.2.3