diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-03-01 19:28:50 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-03-01 19:28:50 +0000 |
| commit | 18eb9dfdcb3174bfd4bab5b9089acffa13aa1214 (patch) | |
| tree | d94c3792f1493a468e1f811c38a18a1aa5831c7d | |
| parent | c59d90c26be0ccf13d82afd15a65e0b9b54131e1 (diff) | |
| download | data-service-18eb9dfdcb3174bfd4bab5b9089acffa13aa1214.tar data-service-18eb9dfdcb3174bfd4bab5b9089acffa13aa1214.tar.gz | |
Improve the builds verbose output
| -rw-r--r-- | guix-data-service/builds.scm | 13 |
1 files changed, 12 insertions, 1 deletions
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))) |