From 6a27bd5e2fa51fd9507ab28b33d8738aaffa028d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 23 May 2020 00:06:09 +0200 Subject: Minor cleanup. --- module/output/ical.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'module/output/ical.scm') diff --git a/module/output/ical.scm b/module/output/ical.scm index 2edde8c1..d3f26d02 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -207,7 +207,8 @@ CALSCALE:GREGORIAN\r (let ((tz-names (get-tz-names events))) (for-each component->ical-string - ;; TODO we realy should send the earliest event from each timezone here. + ;; TODO we realy should send the earliest event from each timezone here, + ;; instead of just the first. (map (lambda (name) (zoneinfo->vtimezone (getf 'zoneinfo) name (car events))) tz-names))) -- cgit v1.2.3