diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-16 21:21:02 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-16 21:21:02 +0200 |
| commit | 0236d03b6a4fabe0cd22da06617533564b2f3c35 (patch) | |
| tree | a1be78429fa98bf097285fdd9ece2ea221f9a7f2 | |
| parent | Updated type signatures in component. (diff) | |
| download | calp-0236d03b6a4fabe0cd22da06617533564b2f3c35.tar.gz calp-0236d03b6a4fabe0cd22da06617533564b2f3c35.tar.xz | |
Store unchanged datetimes in X-HNH-ORIGINAL property.
| -rw-r--r-- | module/vcomponent/parse/types.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/module/vcomponent/parse/types.scm b/module/vcomponent/parse/types.scm index 5971067f..3cd7dd29 100644 --- a/module/vcomponent/parse/types.scm +++ b/module/vcomponent/parse/types.scm @@ -31,9 +31,11 @@ ;; DATE-TIME (define (parse-datetime props value) - (get-datetime - (parse-ics-datetime - value (hashq-ref props 'TZID #f)))) + (define parsed + (parse-ics-datetime + value (hashq-ref props 'TZID #f))) + (hashq-set! props 'X-HNH-ORIGINAL parsed) + (get-datetime parsed)) ;; DURATION (define (parse-duration props value) |