From 429d1d1e2ee83eb8448cea8cde455e3e1f4dc98f Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 8 Jul 2023 07:00:14 -0500
Subject: guile server: adding docstrings

---
 gn3-guile/web/webserver.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'gn3-guile')

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 `(
-- 
cgit v1.2.3