code refactoring

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))))