From 18eb9dfdcb3174bfd4bab5b9089acffa13aa1214 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 1 Mar 2020 19:28:50 +0000 Subject: [PATCH] Improve the builds verbose output --- guix-data-service/builds.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm index 24e6b6f..c1c93cf 100644 --- a/guix-data-service/builds.scm +++ b/guix-data-service/builds.scm @@ -241,7 +241,14 @@ WHERE derivation_output_details.path = $1" build-server-id build-id data) - (display "-"))) + (if (verbose-output?) + (simple-format (current-error-port) + "debug: status: ~A\n" + (assq-ref build-statuses + (or (assoc-ref data "buildstatus") + ;; status is for the /output/ requests + (assoc-ref data "status")))) + (display "-")))) ;; Try not to make to many requests at once (usleep 200))) (select-pending-builds conn build-server-id))) @@ -346,6 +353,10 @@ WHERE derivation_output_details.path = $1" derivation-file-name (string-length "/gnu/store")))) + (when (verbose-output?) + (simple-format (current-error-port) + "debug: fetching ~A\n" + build-url)) (let-values (((response body) (http-request build-url)))