From 27884c59318895bdaf9073944eb7e2037875ec0b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 4 Jul 2020 01:58:52 +0200
Subject: Add live import of event.

---
 module/entry-points/server.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module/entry-points/server.scm')

diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index 4810dc0c..aaff398e 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -141,7 +141,7 @@
 
              (parameterize ((warnings-are-errors #t))
                (catch 'warning
-                 (lambda () (calendar-import calendar event))
+                 (lambda () (add-event calendar event))
                  (lambda (err fmt args)
                    (return (build-response code: 400)
                            (format #f "~?~%" fmt args)))))
-- 
cgit v1.2.3