guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
Show stats 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-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)))