From 8568e13113c0901e92dc82007fe10b6ba64c6991 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 24 Jul 2020 17:33:34 +0200 Subject: Error on failed save. --- module/entry-points/server.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- cgit v1.2.3