From cecffe9ebdd0bb1efb628da320039fec9e6cba39 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sun, 3 Nov 2019 13:57:46 +0100
Subject: Move stuff between vcomponent/{base,parse}.

---
 module/output/info.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'module/output')

diff --git a/module/output/info.scm b/module/output/info.scm
index 62600472..eba0979c 100644
--- a/module/output/info.scm
+++ b/module/output/info.scm
@@ -11,7 +11,9 @@
   (format #t "~%Found ~a calendars, named:~%~{ - [~4@a] ~a~a\x1b[m~%~}~%"
           (length calendars)
           (concatenate
-           (zip (map (lambda (c) (length (children c 'VEVENT))) calendars)
+           (zip (map (lambda (c) (length (filter (lambda (e) (eq? 'VEVENT (type e)))
+                                            (children c))))
+                     calendars)
                 (map (compose color-escape (extract 'COLOR)) calendars)
                 (map (extract 'NAME) calendars)))))
 
-- 
cgit v1.2.3