diff options
Diffstat (limited to 'web/webserver.scm')
| -rwxr-xr-x | web/webserver.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index 0dcb5f8..ded9997 100755 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -129,10 +129,10 @@ otherwise search for set/group data" (lambda (port) (format port "~a" "foo")))) -(define (build-json-response status_code json) +(define (build-json-response status-code json) (list (build-response - #:code status_code + #:code status-code #:headers `((content-type . (application/json)))) (lambda (port) (scm->json json port)))) @@ -157,9 +157,9 @@ otherwise search for set/group data" (define (edit-file-handler repo request) (catch 'file-error (lambda () - (let* ((params (decode-query (uri-query (request-uri request)))) (query_path (assoc-ref params 'file_path))) - (if query_path - (build-json-response 400 (fetch-file repo query_path)) + (let* ((params (decode-query (uri-query (request-uri request)))) (query-path (assoc-ref params 'file_path))) + (if query-path + (build-json-response 400 (fetch-file repo query-path)) (throw 'file-error (string-append "Please provide a valid file path in the query"))))) (lambda (key . args) (let ((msg (car args))) (build-json-response 400 `(("error" . ,key) ("msg" . ,msg))))))) |