aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xweb/webserver.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/web/webserver.scm b/web/webserver.scm
index bb6412d..771bebd 100755
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -63,7 +63,7 @@
"Create a meta URL for the API path"
(mk-url path ".meta.json"))
-(define (mk-rec path)
+(define (mk-data path)
"Create a JSON URL for the API path"
(mk-url path ".json"))
@@ -140,7 +140,7 @@
`(("info" . ,id)
("doc" . ,(mk-doc id))
("meta" . ,(mk-meta id))
- ("data" . ,(mk-rec id))
+ ("data" . ,(mk-data id))
("up" . ,(mk-meta "species"))
))
@@ -191,10 +191,10 @@
"Return a list of short names and expand them to URIs"
(map (lambda r
(let ([shortname (assoc-ref (car r) "shortName")])
- (cons shortname (mk-rec shortname)))) recs)
+ (cons shortname (mk-data shortname)))) recs)
)
-(define (get-species-rec)
+(define (get-species-data)
(list->vector (get-expanded-species)))
(define (get-species-meta)
@@ -202,7 +202,7 @@
`(("info" . "Get information on species by visiting the data link or one of the individual links")
("doc" . ,(mk-doc "species"))
("meta" . ,(mk-meta "species"))
- ("data" . ,(mk-rec "species"))
+ ("data" . ,(mk-data "species"))
("up" . ,(string-append (prefix) "/"))
("meta-links" . ,(get-species-meta2 recs))
("links" . ,(get-species-links recs)))))
@@ -251,7 +251,7 @@
(('GET "doc" path ... page) ; serve documents from /doc/
(render-doc path page))
(('GET "species.json")
- (render-json (get-species-rec)))
+ (render-json (get-species-data)))
(('GET "species.meta.json")
(render-json (get-species-meta)))
(('GET "species")