From 36d1aac8f08bc20e499563805a280a795f9cdfb2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 26 Apr 2020 01:30:03 +0200 Subject: Add some comments. --- module/vcomponent/group.scm | 1 + 1 file changed, 1 insertion(+) (limited to 'module/vcomponent') diff --git a/module/vcomponent/group.scm b/module/vcomponent/group.scm index 1309ae6d..cf0fbe82 100644 --- a/module/vcomponent/group.scm +++ b/module/vcomponent/group.scm @@ -8,6 +8,7 @@ #:export (group-stream get-groups-between)) ;; TODO templetize this +;; TODO this seems to behave weird if the first day of the week is empty (0 events). (define-stream (group-stream in-stream) (define (ein? day) (lambda (e) (event-contains? e day))) -- cgit v1.2.3