aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xgn3-guile/web/webserver.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/gn3-guile/web/webserver.scm b/gn3-guile/web/webserver.scm
index 3fd79f8..f14fb25 100755
--- a/gn3-guile/web/webserver.scm
+++ b/gn3-guile/web/webserver.scm
@@ -25,12 +25,15 @@
"https://genenetwork.org")
(define (prefix)
+ "Build the API URL including version"
(string-append (base-url) "/api/" (get-version)))
(define (mk-url postfix)
+ "Add the path to the API URL"
(string-append (prefix) "/" postfix))
(define (meta url)
+ "Adds /meta to the URL"
(string-append url "/meta"))
(define info `(