aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/recurrence/parse.scm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--module/vcomponent/recurrence/parse.scm7
1 files changed, 6 insertions, 1 deletions
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))