From 74ee48d7c13056b9251fa04c3a65b9af014ad45a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 17 Nov 2020 21:16:58 +0100
Subject: Slightly improve 'Building <events>' print.

---
 module/vcomponent/instance/methods.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'module/vcomponent/instance/methods.scm')

diff --git a/module/vcomponent/instance/methods.scm b/module/vcomponent/instance/methods.scm
index 7a193b8a..414587a9 100644
--- a/module/vcomponent/instance/methods.scm
+++ b/module/vcomponent/instance/methods.scm
@@ -49,8 +49,9 @@
 (define-method (initialize (this <events>) args)
   (next-method)
 
-  (format (current-error-port) "Building <events> from ~a~%"
-          (slot-ref this 'calendar-files))
+  (format (current-error-port) "Building <events> from~%")
+  (for calendar in (slot-ref this 'calendar-files)
+       (format (current-error-port) "  - ~a~%" calendar))
 
   (slot-set! this 'calendars (load-calendars (slot-ref this 'calendar-files)))
 
-- 
cgit v1.2.3