From 7c2adefaee82dbf2843dc6bf5364c4b664b4b366 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 25 Mar 2019 13:56:15 +0100
Subject: Minor cleanups.

---
 module/vcalendar/datetime.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'module/vcalendar/datetime.scm')

diff --git a/module/vcalendar/datetime.scm b/module/vcalendar/datetime.scm
index 360b8348..d28096c6 100644
--- a/module/vcalendar/datetime.scm
+++ b/module/vcalendar/datetime.scm
@@ -30,5 +30,6 @@ Event must have the DTSTART and DTEND attribute set."
   "Does event overlap the date that contains time."
   (let* ((date (time-utc->date time))
          (start (date->time-utc (drop-time date)))
-         (end (add-duration start (make-duration (* 60 60 24)))))
+         (end (add-day start)))
     (event-overlaps? ev start end)))
+
-- 
cgit v1.2.3