diff options
Diffstat (limited to 'web')
| -rw-r--r-- | web/webserver.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index 60503a4..4041f50 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -36,8 +36,8 @@ (substring filename dot-pos) ""))) ;; Look into moving this into a config file. -(define +current-repo-path+ (getenv "CURRENT_REPO_PATH")) -(define +bare-repo-path+ (getenv "CGIT_REPO_PATH")) +(define +local-repo-checkout-path+ (getenv "CURRENT_REPO_PATH")) +(define +remote-repo-url+ (getenv "CGIT_REPO_PATH")) (define +working-branch+ (getenv "GN_GUILE_WORKING_BRANCH")) (define +info+ @@ -250,14 +250,14 @@ otherwise search for set/group data" (build-json-response 200 ((lambda () (let ((message - (commit-file +current-repo-path+ + (commit-file +local-repo-checkout-path+ file-name content commit-message username email prev-commit))) - (git-invoke +current-repo-path+ "push" +bare-repo-path+) + (git-invoke +local-repo-checkout-path+ "push" +remote-repo-url+) message)))))) (lambda (key . args) (let ((msg (car args))) @@ -330,9 +330,9 @@ otherwise search for set/group data" (('GET "species") (render-json (get-species-meta))) (('GET "edit") - (edit-file-handler +current-repo-path+ +working-branch+ request)) + (edit-file-handler +local-repo-checkout-path+ +working-branch+ request)) (('POST "commit") - (commit-file-handler +current-repo-path+ request body)) + (commit-file-handler +local-repo-checkout-path+ request body)) (('GET id) (let ((names (get-species-shortnames (get-expanded-species)))) (match (string->list id) |