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