diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 01:16:30 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 01:16:30 +0100 |
| commit | 8c82f44c534abc57ce33d9c972d73ae9d7281709 (patch) | |
| tree | c9c4127a5479163546fb937449dda8a72b9e9796 /module/vcomponent/recurrence | |
| parent | Add some TODO's. (diff) | |
| download | calp-8c82f44c534abc57ce33d9c972d73ae9d7281709.tar.gz calp-8c82f44c534abc57ce33d9c972d73ae9d7281709.tar.xz | |
Store TZ in sensible way when parsing datetimes.
Diffstat (limited to 'module/vcomponent/recurrence')
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 087ce14e..f51759e0 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -165,7 +165,7 @@ (if (attr event "RRULE") (recur-event-stream event (parse-recurrence-rule (attr event "RRULE") - (if (string= "DATE" (and=> (prop (attr* event 'DTSTART) 'VALUE) car)) + (if (eq? 'DATE (and=> (prop (attr* event 'DTSTART) 'VALUE) car)) parse-date parse-datetime))) ;; TODO some events STANDARD and DAYLIGT doesn't have RRULE's, but rather ;; just mention the current part. Handle this |