From 582bc6b91850daf104147473e5f7508beba2d539 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 22 Apr 2019 12:14:11 +0200
Subject: Add CSS.

---
 module/html/html.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module')

diff --git a/module/html/html.scm b/module/html/html.scm
index 5ad98b0a..51de18aa 100644
--- a/module/html/html.scm
+++ b/module/html/html.scm
@@ -36,7 +36,7 @@
   (if (null? ev-list)
       #f
       (let* ((pred? (lambda (next)
-                      (time<=? (attr next 'DTSTART)
+                      (time<? (attr next 'DTSTART)
                                (attr (car ev-list) 'DTEND))))
              (overlapping (take-while pred? ev-list))
              (rest (drop-while pred? ev-list)))
-- 
cgit v1.2.3