diff options
| -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 |