aboutsummaryrefslogtreecommitdiff
path: root/web
diff options
context:
space:
mode:
Diffstat (limited to 'web')
-rw-r--r--web/webserver.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/web/webserver.scm b/web/webserver.scm
index b5e862c..92fa197 100644
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -27,7 +27,7 @@
(web view doc)
(web view markdown))
-(define info
+(define +info+
`(("name" . "GeneNetwork REST API") ("version" unquote get-version)
("comment" . "This is the official REST API for the GeneNetwork service hosted at https://genenetwork.org/")
("license"
@@ -39,7 +39,7 @@
("links" ("species" unquote
(mk-meta "species")))))
-(define info-meta
+(define +info-meta+
`(("doc" unquote
(mk-html "info"))
("API" ((unquote (mk-url "species")) . "Get a list of all species")
@@ -220,7 +220,7 @@ otherwise search for set/group data"
(define (controller request body)
(match-lambda
(('GET)
- (render-json info))
+ (render-json +info+))
(('GET "version")
(render-json get-version))
(('GET "css" fn)
@@ -245,7 +245,7 @@ otherwise search for set/group data"
(render-doc "doc" taxon
(get-expanded-taxon-meta (list->string name))))))
(('GET "doc" path ... page)
- ;serve documents from /doc/
+ ;; serve documents from /doc/
(render-doc path page))
(('GET "species.json")
(render-json (get-species-data)))