diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-21 18:38:29 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-21 18:38:29 +0100 |
| commit | b5b89b3645e0868aa225926cff66602626b7a145 (patch) | |
| tree | d6801f56f847db4d3aa6cef0cafca1efd352450d /guix-data-service/web | |
| parent | 971a474f6505df4941b5e5be61fa004e4c1bbdd1 (diff) | |
| download | data-service-b5b89b3645e0868aa225926cff66602626b7a145.tar data-service-b5b89b3645e0868aa225926cff66602626b7a145.tar.gz | |
Fix broken links to builds
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/html-utils.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-data-service/web/html-utils.scm b/guix-data-service/web/html-utils.scm index 5fa1ad4..660fcd3 100644 --- a/guix-data-service/web/html-utils.scm +++ b/guix-data-service/web/html-utils.scm @@ -70,7 +70,8 @@ value)) (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 #f "/build-server/~A/build?build_server_build_id=~A" build-server-id |