diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
| commit | f852c30bcef530d18a474ab6ab8350a3ef93d563 (patch) | |
| tree | 00fc29a6ff1a8c842d0a526f04d4124977dd6e46 /module/vcomponent/parse.scm | |
| parent | Update recurrence generate to new date obj. (diff) | |
| download | calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.gz calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.xz | |
Once again compiles.
Diffstat (limited to 'module/vcomponent/parse.scm')
| -rw-r--r-- | module/vcomponent/parse.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 646d1f72..24becd13 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -167,7 +167,12 @@ (mod! (value it) (if (or (and=>> v car (cut string=? <> "DATE-TIME")) (string-contains (value it) "T")) - parse-datetime parse-date)))] + (begin + (set! (prop it 'VALUE) "DATE-TIME") + parse-datetime) + (begin + (set! (prop it 'VALUE) "DATE") + parse-date))))] ) |