From 3ae27baa010fbc49f1d0b94cf27bcbfcdde88698 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 3 Jan 2021 14:58:46 +0000 Subject: [PATCH] Fix broken build links in view-revision-package-and-version --- guix-data-service/web/revision/html.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 0c4aaf1..1012d65 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -297,12 +297,13 @@ (@ (class "list-inline")) ,@(map (lambda (build) `(li - `(a (@ (href ,(build-url - build-server-id - (assoc-ref build - "build_server_build_id") - derivation-file-name))) - ,(build-status-alist->build-icon build)))) + (a (@ (href ,(build-url + (assoc-ref build + "build_server_id") + (assoc-ref build + "build_server_build_id") + file-name))) + ,(build-status-alist->build-icon build)))) builds)))))) derivations))))) (div