diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-03 00:43:29 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-03 00:43:29 +0200 |
| commit | 23885b01d3e271db545139a72db9aed8644da999 (patch) | |
| tree | 6b6c15b2f9937cc893d4c38f9bcb74bc5c27b687 /module/entry-points/server.scm | |
| parent | Module cleanup. (diff) | |
| download | calp-23885b01d3e271db545139a72db9aed8644da999.tar.gz calp-23885b01d3e271db545139a72db9aed8644da999.tar.xz | |
Minor fixups.
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 357809b4..824770af 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -33,7 +33,7 @@ :use-module (output html) :use-module (output ical) - :autoload (vcomponent instance) (#|get-calendars|# global-event-object) + :autoload (vcomponent instance) (get-calendars global-event-object) :export (main) ) @@ -189,7 +189,7 @@ (parameterize ((warnings-are-errors #t)) (catch 'warning - (lambda () (add-event calendar event)) + (lambda () (add-event global-event-object calendar event)) (lambda (err fmt args) (return (build-response code: 400) (format #f "~?~%" fmt args))))) |