diff options
author | Christopher Baines <mail@cbaines.net> | 2024-02-04 13:52:54 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-02-04 13:52:54 +0100 |
commit | f634a894e254f4c2e2341dc0f3912e9c01240f3c (patch) | |
tree | 1630816395b59fa43ee10d1faac4831336d15f9e /bffe/server.scm | |
parent | 1c12da4e6f3c7d3ab557781769fb848354362748 (diff) | |
download | bffe-f634a894e254f4c2e2341dc0f3912e9c01240f3c.tar bffe-f634a894e254f4c2e2341dc0f3912e9c01240f3c.tar.gz |
Add support for derivation 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 76f8212..65b49b5 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -418,7 +418,8 @@ event-source #:key title - (template-directory (%config 'template-dir))) + (template-directory (%config 'template-dir)) + (derivation-link-target (const #f))) (define handle-static-assets (if (string-prefix? (%store-prefix) @@ -520,7 +521,8 @@ (else (render-html #:sxml (build title - (json->scm body))))))) + (json->scm body) + derivation-link-target)))))) (('GET "agent" agent-id) (let ((response body |