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

Improve verbose output for fetching build information

Browse source
This commit is contained in:
Christopher Baines 2020-11-01 21:53:04 +00:00
parent 6235c6e33b
commit 5674f8838d
1 changed files with 21 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -211,7 +211,8 @@ WHERE derivation_output_details.path = $1"
id
revision-commits))))
(define (insert-build-statuses-from-data conn build-server-id build-id data)
(define* (insert-build-statuses-from-data conn build-server-id build-id data
#:key verbose?)
(define stop-statuses
(lset-difference string=?
build-status-strings
@ -235,8 +236,17 @@ WHERE derivation_output_details.path = $1"
(assoc-ref data "starttime"))
(stoptime
(assoc-ref data "stoptime")))
(when verbose?
(simple-format #t "debug: existing statuses: ~A, new status: ~A\n"
existing-status-entries
status-string))
(map (match-lambda
((timestamp status)
(when verbose?
(simple-format
#t
"debug: inserting status: ~A\n" status))
(insert-build-status conn build-id timestamp status)))
(filter
list?
@ -263,24 +273,23 @@ WHERE derivation_output_details.path = $1"
((build-id derivation-file-name)
(match (fetch-build url derivation-file-name)
(#f
(display ".")
(if (verbose-output?)
(display "debug: no build found\n")
(display "."))
#f)
(()
(display ".")
(if (verbose-output?)
(display "debug: no build found\n")
(display "."))
#f)
(data
(insert-build-statuses-from-data
conn
build-server-id
build-id
data)
(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"))))
data
#:verbose? (verbose-output?))
(unless (verbose-output?)
(display "-"))))
;; Try not to make to many requests at once
(usleep 200)))