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/vcomponent/recurrence/generate.scm | |
| 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 'module/vcomponent/recurrence/generate.scm')
| -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))) |