diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-25 20:34:34 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-25 20:34:34 +0200 |
| commit | 26b18387c02785fe295a3e2d2059a4a7dcc35360 (patch) | |
| tree | 41b9ee0bf2504b335a1b54b05491f2bce3cdd3c5 | |
| parent | Move single curly brace. (diff) | |
| download | calp-26b18387c02785fe295a3e2d2059a4a7dcc35360.tar.gz calp-26b18387c02785fe295a3e2d2059a4a7dcc35360.tar.xz | |
Fix html output.
| -rw-r--r-- | module/output/html.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 22958d0e..851f9b54 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -121,7 +121,8 @@ (define start (parse-freeform-date (option-ref opts 'from "2019-04-15"))) (define end (parse-freeform-date (option-ref opts 'to "2019-05-10"))) - (define evs (get-groups-between (group-stream events))) + (define evs (get-groups-between (group-stream events) + start end)) ((@ (sxml simple) sxml->xml) `(html (head |