diff options
| author | Munyoki Kilyungi | 2024-09-03 15:55:42 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-09-04 11:42:07 +0300 |
| commit | a8fe6a2890c657d85040ce64d75f3d85b38ab4e8 (patch) | |
| tree | 7732292a84feb41b3a843a8a8697dc810782e396 /web/webserver.scm | |
| parent | edb76ba7dab135105af20623808518de06146f0d (diff) | |
| download | gn-guile-a8fe6a2890c657d85040ce64d75f3d85b38ab4e8.tar.gz | |
Move constants to the top of the file.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'web/webserver.scm')
| -rw-r--r-- | web/webserver.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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)) |