diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-24 22:52:57 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-24 22:52:57 +0100 |
commit | e7c99e14691e768e0c3e7c54049301183ddfc32f (patch) | |
tree | d71df8a65506c6ab5c935e7ed2e25a0fd9ce5d13 /module/vcomponent/recurrence | |
parent | Add date-{min,max}. (diff) | |
download | calp-e7c99e14691e768e0c3e7c54049301183ddfc32f.tar.gz calp-e7c99e14691e768e0c3e7c54049301183ddfc32f.tar.xz |
Change date{,time}-difference to hopefully sensible types.
Diffstat (limited to 'module/vcomponent/recurrence')
-rw-r--r-- | module/vcomponent/recurrence/generate.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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") |