From 77791305d6e1483fa5ae46f26616242c00f99989 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Fri, 4 Oct 2019 21:02:17 +0200
Subject: HTML output seems to work in full now.

---
 module/output/terminal.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'module/output/terminal.scm')

diff --git a/module/output/terminal.scm b/module/output/terminal.scm
index 67548537..a2c5486e 100644
--- a/module/output/terminal.scm
+++ b/module/output/terminal.scm
@@ -67,6 +67,7 @@
     ;; I currently have no idea why, but it's BAD.
     (let ((groups (get-groups-between (group-stream event-stream)
                                       (time-utc->date time) (time-utc->date time))))
+      (format (current-error-port) "len(groups) = ~a~%" (stream-length groups))
       (let ((events
              (if (stream-null? groups)
                  '() (group->event-list (stream-car groups)))))
-- 
cgit v1.2.3