diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-31 00:38:00 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-31 00:38:00 +0200 |
| commit | 4889e9fc9d4756803c0eb7f700ecd32fcfa61404 (patch) | |
| tree | a98ab11468a651e113687bf462f47abdafb243ba /module/vcomponent/recurrence/parse.scm | |
| parent | Fixed minor errors in HTML output. (diff) | |
| download | calp-4889e9fc9d4756803c0eb7f700ecd32fcfa61404.tar.gz calp-4889e9fc9d4756803c0eb7f700ecd32fcfa61404.tar.xz | |
Rename parse-date to parse-ics-date, add parse-iso-date.
Diffstat (limited to 'module/vcomponent/recurrence/parse.scm')
| -rw-r--r-- | module/vcomponent/recurrence/parse.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index 97e5e980..00d9fcdb 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -51,7 +51,7 @@ ;; RFC 5545, Section 3.3.10. Recurrence Rule, states that the UNTIL value MUST have ;; the same type as the DTSTART of the event (date or datetime). I have seen events ;; in the wild which didn't follow this. I consider that an user error. -(define* (parse-recurrence-rule str optional: (datetime-parser parse-datetime)) +(define* (parse-recurrence-rule str optional: (datetime-parser parse-ics-datetime)) (fold (lambda (kv o) (let* (((key val) kv)) |