From 9dff66430a956f7c8fe92a600bf36c4b1895f958 Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Wed, 23 Aug 2023 11:21:39 +0200 Subject: Tests pass and set resolves --- gn/data/species.scm | 5 ++++- web/gn-uri.scm | 1 - 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/gn/data/species.scm b/gn/data/species.scm index ca3bb05..7923101 100644 --- a/gn/data/species.scm +++ b/gn/data/species.scm @@ -130,5 +130,8 @@ ("meta" . ,(mk-meta id)) ("data" . ,(mk-data id)) ("up" . ,(mk-meta "species")) - ("links" . ,(list->vector (get-group-links (gnid-species id)))) + ("meta-links" . ,(list->vector (get-group-links (gnid-species id) + (lambda (r) (mk-meta (url-parse-id r)))))) + ("links" . ,(list->vector (get-group-links (gnid-species id) + (lambda (r) (mk-meta (url-parse-id r)))))) )) diff --git a/web/gn-uri.scm b/web/gn-uri.scm index de70ea7..f275bcd 100644 --- a/web/gn-uri.scm +++ b/web/gn-uri.scm @@ -34,7 +34,6 @@ "unknown" )) - (define get-version "2.0") -- cgit v1.2.3