Fix missing procedure

1 files changed, 9 insertions, 1 deletions

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)))
   ))