diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-01 21:00:02 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-01 21:00:02 +0200 |
| commit | 10d39d1fc6c6c9a9e4d17563c82fe98aa072da77 (patch) | |
| tree | 3de6da2755e35b7a03f793880402a05cc3c3f14a /module/entry-points/server.scm | |
| parent | Add sqlite3.scm from Guile-sqlite. (diff) | |
| download | calp-sql.tar.gz calp-sql.tar.xz | |
Play around with sql.sql
Diffstat (limited to 'module/entry-points/server.scm')
| -rw-r--r-- | module/entry-points/server.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 5c3108cc..330ca3dd 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -78,7 +78,7 @@ (with-output-to-string (lambda () (html-generate calendars: (getf 'calendars) - events: (getf 'event-set) + events: (car (getf 'event-set)) start-date: start-date end-date: (date+ start-date (date day: 6)) next-start: (lambda (d) (date+ d (date day: 7))) @@ -94,7 +94,7 @@ (with-output-to-string (lambda () (html-generate calendars: (getf 'calendars) - events: (getf 'event-set) + events: (car (getf 'event-set)) start-date: start-date end-date: (date- (month+ start-date) (date day: 1)) |