From b151e98e3933d7e21f20554cc892f0bef0740cba Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 21 Aug 2023 10:19:04 +0200
Subject: Fix missing procedure

---
 gn/data/species.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'gn')

diff --git a/gn/data/species.scm b/gn/data/species.scm
index e06931e..72ab7cf 100644
--- a/gn/data/species.scm
+++ b/gn/data/species.scm
@@ -12,6 +12,7 @@
             get-species-meta
             get-species-data
             get-species-shortnames
+            get-expanded-species
             get-expanded-taxon-meta
             get-expanded-taxon-data
             ))
@@ -78,6 +79,13 @@
              (return #f)
 )))
 
+
+(define (get-expanded-species)
+  "Here we add information related to each species"
+  (map (lambda (rec)
+         (expand-species rec)
+         ) (get-species)))
+
 (define (get-species-api-str)
   (scm->json-string #("https://genenetwork.org/api/v2/mouse/"
                       "https://genenetwork.org/api/v2/rat/")))
@@ -120,5 +128,5 @@
     ("meta" . ,(mk-meta id))
     ("data" . ,(mk-data id))
     ("up" . ,(mk-meta "species"))
-    ("links" . ,(get-group-links (gn-species id)))
+    ("links" . "test") ; ,(get-group-links (gn-species id)))
   ))
-- 
cgit v1.2.3