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

Guard against build being missing from the output response

Browse source
This commit is contained in:
Christopher Baines 2020-02-16 09:06:12 +00:00
parent cc370fae56
commit 6f97cec962
1 changed files with 22 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -234,6 +234,8 @@ initial connection on which HTTP requests are sent."
(if data (if data
(catch #t (catch #t
(lambda () (lambda ()
(when (assoc-ref data "build")
;; The build can be #f
(let* ((derivation (let* ((derivation
(assoc-ref data "derivation")) (assoc-ref data "derivation"))
(build-id (build-id
@ -253,7 +255,7 @@ initial connection on which HTTP requests are sent."
(if (verbose-output?) (if (verbose-output?)
(simple-format #t "found build for: ~A (~A)\n" (simple-format #t "found build for: ~A (~A)\n"
output derivation) output derivation)
(display "-")))) (display "-")))))
(lambda (key . args) (lambda (key . args)
(simple-format (simple-format
(current-error-port) (current-error-port)