diff options
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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")) |