From 9dbccc010a42dee89f0761b44577f80d18933814 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Wed, 24 Apr 2019 19:37:30 +0200
Subject: Remove surpurflous lambda.

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

diff --git a/module/output/html.scm b/module/output/html.scm
index a58fce0c..197b0735 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -49,7 +49,7 @@
 
   ;; @var{x} is how for left in the container we are.
   (let inner ((x 0)
-              (tree (make-tree (lambda (head e) (overlapping? head e))
+              (tree (make-tree overlapping?
                                (sort* lst time>? (lambda (e) (event-length/day e start-of-day))))))
     (if (null? tree) #f
         (let ((w (/ (- 1 x)
-- 
cgit v1.2.3