diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-04 21:02:17 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-04 21:02:17 +0200 |
commit | 77791305d6e1483fa5ae46f26616242c00f99989 (patch) | |
tree | f71b777988f47f36cc46c724b9efdd090566f278 /module/output/terminal.scm | |
parent | Comments in parser. (diff) | |
download | calp-77791305d6e1483fa5ae46f26616242c00f99989.tar.gz calp-77791305d6e1483fa5ae46f26616242c00f99989.tar.xz |
HTML output seems to work in full now.
Diffstat (limited to 'module/output/terminal.scm')
-rw-r--r-- | module/output/terminal.scm | 1 |
1 files changed, 1 insertions, 0 deletions
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))))) |