From a8fe6a2890c657d85040ce64d75f3d85b38ab4e8 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 3 Sep 2024 15:55:42 +0300 Subject: Move constants to the top of the file. Signed-off-by: Munyoki Kilyungi --- web/webserver.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'web') diff --git a/web/webserver.scm b/web/webserver.scm index c92c1ad..c4ee6ca 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -27,6 +27,9 @@ (web view doc) (web view markdown)) +(define +global-repo+ + (getenv "REPO_PATH")) + (define +info+ `(("name" . "GeneNetwork REST API") ("version" ,get-version) ("comment" . "This is the official REST API for the GeneNetwork service hosted at https://genenetwork.org/") @@ -169,9 +172,6 @@ otherwise search for set/group data" `(("error" ,key) ("msg" ,msg))))))) -(define +global-repo+ - (getenv "REPO_PATH")) - (define (invalid-data? data target) (if (string? (assoc-ref data target)) (if (string-null? (assoc-ref data target)) -- cgit v1.2.3