From 527dbb981e87ca70d3f425b965b08d3b3420198a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 15 Jun 2020 01:05:31 +0200 Subject: Work on parser. --- module/vcomponent/recurrence/parse.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'module/vcomponent/recurrence') diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index 3df5cc25..efcf984c 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -79,7 +79,12 @@ (let* (((key val) kv)) (let-lazy ((symb (string->symbol val)) - (date (datetime-parser val)) + ;; TODO this is an ugly hack. + ;; But sending in datetime-parser instead + ;; leads to dependency problems in vcomponent. + (date (catch 'parse-error + (lambda () (parse-ics-datetime val)) + (lambda _ (parse-ics-date val)))) (day (rfc->datetime-weekday (string->symbol val))) (days (map parse-day-spec (string-split val #\,))) (num (string->number val)) -- cgit v1.2.3