diff options
| -rwxr-xr-x | gn3-guile/web/webserver.scm | 3 |
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 `( |