diff options
| -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)) |