diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-24 17:33:34 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-24 17:33:34 +0200 |
| commit | 8568e13113c0901e92dc82007fe10b6ba64c6991 (patch) | |
| tree | d0796e80ca7fc8c9fd459f8f207fd321496d86cd | |
| parent | Add missing equal signs for parameters in ical output. (diff) | |
| download | calp-8568e13113c0901e92dc82007fe10b6ba64c6991.tar.gz calp-8568e13113c0901e92dc82007fe10b6ba64c6991.tar.xz | |
Error on failed save.
| -rw-r--r-- | module/entry-points/server.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index b7d4afff..7b323d8e 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -182,7 +182,9 @@ ;; NOTE Posibly defer save to a later point. ;; That would allow better asyncronous preformance. - ((@ (output vdir) save-event) event) + (unless ((@ (output vdir) save-event) event) + (return (build-response code: 500) + "Saving event to disk failed.")) (format (current-error-port) "Event inserted ~a~%" (prop event 'UID)) |