diff options
| -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 |