From c6a605e03fae4106d1cb162392904f3db86b1f00 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 23 May 2020 11:51:44 +0200
Subject: Replace one match-lambda* with case-lambda.

---
 module/output/html.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'module/output/html.scm')

diff --git a/module/output/html.scm b/module/output/html.scm
index efe93ab8..0d06cbb2 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -398,8 +398,8 @@
                   (attr ev 'SUMMARY)))
             (div
              ,(call-with-values (lambda () (fmt-time-span ev))
-                (match-lambda* [(start end) `(div ,start " — " ,end)]
-                               [(start) `(div ,start)]))
+                (case-lambda [(start) `(div ,start)]
+                             [(start end) `(div ,start " — " ,end)]))
              ,(when (and=> (attr ev 'LOCATION) (negate string-null?))
                 `(div (b "Plats: ")
                       (div (@ (class "location"))
-- 
cgit v1.2.3