diff options
| -rw-r--r-- | web/webserver.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index d4044a8..c13397e 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -172,8 +172,8 @@ otherwise search for set/group data" (lambda (key . args) (let ((msg (car args))) (build-json-response 400 - `(("error" ,key) - ("msg" ,msg))))))) + `(("error" . ,key) + ("msg" . ,msg))))))) (define (invalid-data? data target) (if (string? (assoc-ref data target)) |