aboutsummaryrefslogtreecommitdiff
path: root/web/gn-uri.scm
diff options
context:
space:
mode:
Diffstat (limited to 'web/gn-uri.scm')
-rw-r--r--web/gn-uri.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/web/gn-uri.scm b/web/gn-uri.scm
index c0a440a..951b24d 100644
--- a/web/gn-uri.scm
+++ b/web/gn-uri.scm
@@ -81,10 +81,14 @@
(mk-html (string-append "term" "/" postfix)))
(define (mk-id postfix)
- (mk-html (string-append "id" "/" postfix)))
+ "Expand URL to make $api/id/identifier.
+ If postfix is a path it will only apply the last element"
+ (mk-url (string-append "id" "/" (url-parse-id postfix))))
(define (mk-gnid postfix)
- (mk-uri (string-append "id" "/" postfix)))
+ "Expand URL to make http://genenetwork.org/id/identifier.
+ If postfix is a path it will only apply the last element"
+ (mk-uri (string-append "id" "/" (url-parse-id postfix))))
(define (mk-predicate postfix)
(mk-html (string-append "predicate" "/" postfix)))