cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve the builds verbose output

Browse source
This commit is contained in:
Christopher Baines 2020-03-01 19:28:50 +00:00
parent c59d90c26b
commit 18eb9dfdcb
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
guix-data-service/builds.scm
View file

@ -241,7 +241,14 @@ WHERE derivation_output_details.path = $1"
build-server-id build-server-id
build-id build-id
data) 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 ;; Try not to make to many requests at once
(usleep 200))) (usleep 200)))
(select-pending-builds conn build-server-id))) (select-pending-builds conn build-server-id)))
@ -346,6 +353,10 @@ WHERE derivation_output_details.path = $1"
derivation-file-name derivation-file-name
(string-length "/gnu/store")))) (string-length "/gnu/store"))))
(when (verbose-output?)
(simple-format (current-error-port)
"debug: fetching ~A\n"
build-url))
(let-values (let-values
(((response body) (((response body)
(http-request build-url))) (http-request build-url)))