diff options
| author | Munyoki Kilyungi | 2024-08-09 12:01:26 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-08-09 12:01:26 +0300 |
| commit | b07b91dfa178a5b3df8f882b6631582bc492b4ef (patch) | |
| tree | 70998e1a5c299b3a4aec4d0f787ad107823b0576 | |
| parent | d572ce5ed2a34b42a0a3748925f3e5756f0ac4e2 (diff) | |
| download | gn-guile-b07b91dfa178a5b3df8f882b6631582bc492b4ef.tar.gz | |
Rename info->+info+ info-meta->+info-meta+
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -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))) |