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-10d39d1fc6c6c9a9e4d17563c82fe98aa072da77.tar.gz calp-10d39d1fc6c6c9a9e4d17563c82fe98aa072da77.tar.xz |
Play around with sql.sql
Diffstat (limited to '')
-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)) |