From f852c30bcef530d18a474ab6ab8350a3ef93d563 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 30 Jan 2020 22:51:45 +0100 Subject: Once again compiles. --- module/vcomponent/parse.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'module/vcomponent/parse.scm') 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))))] ) -- cgit v1.2.3