diff options
| -rw-r--r-- | README.md | 2 | ||||
| -rw-r--r-- | gn/db/sparql.scm | 2 | ||||
| -rw-r--r-- | web/webserver.scm | 3 |
3 files changed, 4 insertions, 3 deletions
@@ -25,7 +25,7 @@ The current repository lives at git clone tux02.genenetwork.org:/home/git/public/gn-guile ``` -GNU Guile allows you to develop against a live running web server using emacs-geiser. To try this fire up the web server from the `web` directory as +GNU Guile allows you to develop against a live running web server using emacs-geiser on port 1970. To try this fire up the web server from the `web` directory as ```sh guix shell -L ~/guix-bioinformatics --container --network --file=guix.scm -- guile -L . --fresh-auto-compile --listen=1970 -e main web/webserver.scm 8091 diff --git a/gn/db/sparql.scm b/gn/db/sparql.scm index c6c7cd8..bd7a306 100644 --- a/gn/db/sparql.scm +++ b/gn/db/sparql.scm @@ -28,6 +28,8 @@ the case. sparql-groups-meta sparql-group-info memo-sparql-wd-species-info + memo-sparql-wd-gene-aliases + memo-sparql-wd-geneids compile-species compile-groups-meta get-rows diff --git a/web/webserver.scm b/web/webserver.scm index 430529b..880ab49 100644 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -58,8 +58,7 @@ otherwise search for set/group data" (define (get-gene-aliases genename) "Return a vector of aliases for genename." - #("Hx") - ) + (list->vector (memo-sparql-wd-gene-aliases (memo-sparql-wd-geneids genename)))) (define (not-found2 request) (values (build-response #:code 404) |