diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 19:17:35 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 23:04:01 +0200 |
| commit | aa44c16ce953c090b2eb3ce580c60fa8934a7720 (patch) | |
| tree | 11710e34de01a2ac31e5acac9c8a62af3f09888a /module/entry-points/server.scm | |
| parent | Update server to use app. (diff) | |
| download | calp-aa44c16ce953c090b2eb3ce580c60fa8934a7720.tar.gz calp-aa44c16ce953c090b2eb3ce580c60fa8934a7720.tar.xz | |
Change call signature for [gs]etf.
Diffstat (limited to 'module/entry-points/server.scm')
| -rw-r--r-- | module/entry-points/server.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 6a4558a6..3dab6e9c 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -64,8 +64,8 @@ (return '((content-type text/html)) (with-output-to-string (lambda () - (html-generate calendars: (getf app 'calendars) - events: (getf app 'event-set) + (html-generate calendars: (getf 'calendars) + events: (getf 'event-set) start-date: start-date end-date: (date+ start-date (date day: 6)) next-start: (lambda (d) (date+ d (date day: 7))) @@ -79,8 +79,8 @@ (return '((content-type text/html)) (with-output-to-string (lambda () - (html-generate calendars: (getf app 'calendars) - events: (getf app 'event-set) + (html-generate calendars: (getf 'calendars) + events: (getf 'event-set) start-date: start-date end-date: (date- (month+ start-date) (date day: 1)) |