From 63f549f131da2e6c43ae0959e376fbc1e60da3c3 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 16 Jul 2025 11:16:55 +0200
Subject: Aliases: make it work in the webserver. You can now try:

curl http://127.0.0.1:8091/gene/aliases/Shh
["9530036O11Rik","Dsh","Hhg1","Hx","Hxl3","M100081","ShhNC","sonic hedgehog","sonic hedgehog signaling molecule"]
---
 web/webserver.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'web/webserver.scm')

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)
-- 
cgit v1.2.3