diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-27 10:04:32 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-27 10:04:32 +0000 |
| commit | ae7577476e2ba1caf7860d5e0e9807727a8ff3c2 (patch) | |
| tree | f24bb8e07c028707e99ca0c1486802b2ca5f1f43 | |
| parent | b3f710233c33aecf5156d1c70d398b7251971862 (diff) | |
| download | qa-frontpage-ae7577476e2ba1caf7860d5e0e9807727a8ff3c2.tar qa-frontpage-ae7577476e2ba1caf7860d5e0e9807727a8ff3c2.tar.gz | |
Log the URL when requesting branch derivations
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 4d1ee97..bba42fc 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -342,12 +342,18 @@ (let ((package-derivations ;; This can be #f for unprcessed revisions as ;; the data service gives a 404 - (guix-data-service-request - (package-derivations-url - branch-commit - #:system system - #:target "" - #:no-build-from-build-server "2")))) + (let ((url + (package-derivations-url + branch-commit + #:system system + #:target "" + #:no-build-from-build-server "2"))) + (simple-format + (current-error-port) + "requesting derivations for branch ~A: ~A\n" + branch + url) + (guix-data-service-request url)))) (if (eq? package-derivations #f) (begin (simple-format |