diff options
author | Christopher Baines <mail@cbaines.net> | 2024-02-04 14:03:17 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-02-04 14:03:17 +0100 |
commit | 006b96a9ff41f5d8e639f93f81eeab87d204bd89 (patch) | |
tree | 753ff1a3fab8ac46c22597f36131a970478900e1 /bffe/server.scm | |
parent | f634a894e254f4c2e2341dc0f3912e9c01240f3c (diff) | |
download | bffe-006b96a9ff41f5d8e639f93f81eeab87d204bd89.tar bffe-006b96a9ff41f5d8e639f93f81eeab87d204bd89.tar.gz |
Add support for tag links
Diffstat (limited to 'bffe/server.scm')
-rw-r--r-- | bffe/server.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/bffe/server.scm b/bffe/server.scm index 65b49b5..b8788c0 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -419,7 +419,8 @@ #:key title (template-directory (%config 'template-dir)) - (derivation-link-target (const #f))) + (derivation-link-target (const #f)) + (tag-link-target (const #f))) (define handle-static-assets (if (string-prefix? (%store-prefix) @@ -522,7 +523,8 @@ (render-html #:sxml (build title (json->scm body) - derivation-link-target)))))) + derivation-link-target + tag-link-target)))))) (('GET "agent" agent-id) (let ((response body |