diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 11:51:44 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 12:59:19 +0200 |
| commit | c6a605e03fae4106d1cb162392904f3db86b1f00 (patch) | |
| tree | 32f35a4a6b3792b39c076e402e07e232fa9f09ca /module/output/html.scm | |
| parent | HTML add debug parameter. (diff) | |
| download | calp-c6a605e03fae4106d1cb162392904f3db86b1f00.tar.gz calp-c6a605e03fae4106d1cb162392904f3db86b1f00.tar.xz | |
Replace one match-lambda* with case-lambda.
Diffstat (limited to 'module/output/html.scm')
| -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")) |