diff options
Diffstat (limited to 'web')
| -rw-r--r-- | web/webserver.scm | 8 |
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))) |