diff options
Diffstat (limited to 'web/webserver.scm')
| -rw-r--r-- | web/webserver.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/web/webserver.scm b/web/webserver.scm index d2a8c8d..430529b 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -56,6 +56,11 @@ otherwise search for set/group data" (if taxoninfo taxoninfo (cdr (get-group-data id))))) +(define (get-gene-aliases genename) + "Return a vector of aliases for genename." + #("Hx") + ) + (define (not-found2 request) (values (build-response #:code 404) (string-append "Resource X not found: " @@ -247,6 +252,8 @@ otherwise search for set/group data" (('GET "doc" path ... page) ;; serve documents from /doc/ (render-doc path page)) + (('GET "gene" "aliases" genename) + (render-json (get-gene-aliases genename))) (('GET "species.json") (render-json (get-species-data))) (('GET "species.meta.json") |