Improve config variables' names.

Provide better names for the configuration variables to more clearly
indicate what the variable is concerned with.

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)