diff options
Diffstat (limited to '')
-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))))] ) |