diff options
| -rwxr-xr-x | gn3-guile/web/webserver.scm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gn3-guile/web/webserver.scm b/gn3-guile/web/webserver.scm index 4cd049c..6059545 100755 --- a/gn3-guile/web/webserver.scm +++ b/gn3-guile/web/webserver.scm @@ -377,13 +377,14 @@ SELECT ?species ?p ?o WHERE { (render-json (get-species-meta))) (('GET "species") (render-json (get-species-meta))) - (('GET shortname) + (('GET id) (let ([names (get-species-shortnames (get-expanded-species))]) - (if (string-contains shortname ".json") - (if (member (string-replace-substring shortname ".json" "") names) - (render-json shortname) - ) - (render-json "doc")))) + (if + (match (string->list "mouse.json") + [(name ... #\. #\j #\s #\o #\n) (list->string name)] + [rest #f]) + (render-json name) + (render-json "WIP")))) (_ (not-found (request-uri request))) )) |