diff options
| -rwxr-xr-x | web/webserver.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index d40621f..3a7e8da 100755 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -204,8 +204,14 @@ otherwise search for set/group data" (username (assoc-ref post-data "username")) (email (assoc-ref post-data "email")) (commit-message (assoc-ref post-data "commit")) + (prev-commit (assoc-ref post-data "prev-commit")) ) - (build-json-response 200 (commit-file repo file-name content commit-message username email)) + (build-json-response 200 + (commit-file repo + file-name content + commit-message + username email + "")) )) (lambda (key . args) (let ((msg (car args))) (build-json-response 400 `(("error" . ,key) ("msg" . ,msg)))) |