From f2d89a93a2a00b7c12095189da63fd627ff27901 Mon Sep 17 00:00:00 2001 From: Alexander_Kabui Date: Fri, 2 Aug 2024 19:25:19 +0300 Subject: code refactoring --- web/webserver.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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)))) -- cgit v1.2.3