cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix broken links to builds

Browse source
This commit is contained in:
Christopher Baines 2020-10-21 18:38:29 +01:00
parent 971a474f65
commit b5b89b3645
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
guix-data-service/web/html-utils.scm
View file

@ -70,7 +70,8 @@
value)) value))
(define (build-url build-server-id build-server-build-id derivation-file-name) (define (build-url build-server-id build-server-build-id derivation-file-name)
(if (string? build-server-build-id) (if (and (string? build-server-build-id)
(not (string-null? build-server-build-id)))
(simple-format (simple-format
#f "/build-server/~A/build?build_server_build_id=~A" #f "/build-server/~A/build?build_server_build_id=~A"
build-server-id build-server-id