diff options
Diffstat (limited to '')
-rw-r--r-- | module/entry-points/import.scm | 4 | ||||
-rw-r--r-- | module/entry-points/server.scm | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/module/entry-points/import.scm b/module/entry-points/import.scm index cc67b448..3fa20055 100644 --- a/module/entry-points/import.scm +++ b/module/entry-points/import.scm @@ -49,7 +49,9 @@ (let loop ((c #\space)) (case c [(#\n #\N) (throw 'return)] - [(#\y #\Y) (map (lambda (e) (calendar-import calendar e)) + [(#\y #\Y) (map (lambda (e) + (add-event calendar e) + (save-event e)) (children new-events))] [else (let ((line (read-line))) 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))))) |