From ab10aa728f6a146f24532344a1753ab588383928 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 May 2020 22:53:30 +0200 Subject: Fix final-event-occurence. --- module/vcomponent/recurrence/generate.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'module/vcomponent/recurrence/generate.scm') 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))) -- cgit v1.2.3