aboutsummaryrefslogtreecommitdiff
path: root/web
diff options
context:
space:
mode:
Diffstat (limited to 'web')
-rwxr-xr-xweb/webserver.scm8
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))))