diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-22 22:53:30 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-22 22:53:30 +0200 |
commit | ab10aa728f6a146f24532344a1753ab588383928 (patch) | |
tree | 39c4e0a8d588bfa06b275c2819bc344d911aa5e4 /module | |
parent | Fix week-start in HTML month view from server. (diff) | |
download | calp-ab10aa728f6a146f24532344a1753ab588383928.tar.gz calp-ab10aa728f6a146f24532344a1753ab588383928.tar.xz |
Fix final-event-occurence.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/recurrence/generate.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index b951c5a3..30cbf4bf 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -360,10 +360,7 @@ (define-public (final-event-occurence event) - (define rrule (parse-recurrence-rule - (attr event 'RRULE) - (if (date? (attr event 'DTSTART)) - parse-ics-date parse-ics-datetime))) + (define rrule (attr event 'RRULE)) (if (or (count rrule) (until rrule)) (let ((instances (rrule-instances event))) |