From 4889e9fc9d4756803c0eb7f700ecd32fcfa61404 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 31 Mar 2020 00:38:00 +0200 Subject: Rename parse-date to parse-ics-date, add parse-iso-date. --- module/vcomponent/parse.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/vcomponent/parse.scm') diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 8efa9e62..7ae966a1 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -210,9 +210,9 @@ row ~a column ~a ctx = ~a (let ((type (and=> (prop it 'VALUE) car))) (if (or (and=> type (cut string=? <> "DATE-TIME")) (string-contains (value it) "T")) - (set! (value it) (parse-datetime (value it) tz) + (set! (value it) (parse-ics-datetime (value it) tz) (prop it 'VALUE) 'DATE-TIME) - (set! (value it) (parse-date (value it)) + (set! (value it) (parse-ics-date (value it)) (prop it 'VALUE) 'DATE))))]) -- cgit v1.2.3