diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 18:23:08 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 18:24:12 +0200 |
| commit | 55f80b2ca4c8d44255e38ef2eee4564501aa83ae (patch) | |
| tree | 9b8fbec23f0f88a503d28e8370659a2bcb0f481f /module/server/routes.scm | |
| parent | even more. (diff) | |
| download | calp-55f80b2ca4c8d44255e38ef2eee4564501aa83ae.tar.gz calp-55f80b2ca4c8d44255e38ef2eee4564501aa83ae.tar.xz | |
MOORE
Diffstat (limited to 'module/server/routes.scm')
| -rw-r--r-- | module/server/routes.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/server/routes.scm b/module/server/routes.scm index 142e0477..475e4c43 100644 --- a/module/server/routes.scm +++ b/module/server/routes.scm @@ -150,7 +150,7 @@ (remove-event global-event-object it) (set! (prop it 'X-HNH-REMOVED) #t) (set! (param (prop* it 'X-HNH-REMOVED) 'VALUE) "BOOLEAN") - (unless ((@ (output vdir) save-event) it) + (unless ((@ (vcomponent vdir save-delete) save-event) it) (return (build-response code: 500) "Saving event to disk failed.")) (return (build-response code: 204))) @@ -249,7 +249,7 @@ (format (current-error-port) "Unlinking old event from ~a~%" (prop old-event '-X-HNH-FILENAME)) - ((@ (output vdir) remove-event) old-event))) + ((@ (vcomponent vdir save-delete) remove-event) old-event))) (parameterize ((warnings-are-errors #t)) (catch 'warning @@ -261,7 +261,7 @@ ;; NOTE Posibly defer save to a later point. ;; That would allow better asyncronous preformance. - (unless ((@ (output vdir) save-event) event) + (unless ((@ (vcomponent vdir save-delete) save-event) event) (return (build-response code: 500) "Saving event to disk failed.")) @@ -280,7 +280,7 @@ ;; NOTE Posibly defer save to a later point. ;; That would allow better asyncronous preformance. - (unless ((@ (output vdir) save-event) event) + (unless ((@ (vcomponent vdir save-delete) save-event) event) (return (build-response code: 500) "Saving event to disk failed.")) |