Don't error when processing revisions of Guix without graft support

This commit is contained in:
Christopher Baines 2019-09-29 10:44:25 +01:00
parent c81d1e04ea
commit d236f05d0f

View file

@ -716,7 +716,7 @@ WHERE job_id = $1"
(guix grafts) (guix grafts)
(guix derivations)) (guix derivations))
inf) inf)
(inferior-eval '(%graft? #f) inf) (inferior-eval '(when (defined? '%graft?) (%graft? #f)) inf)
(let* ((inferior-glibc-locales (let* ((inferior-glibc-locales
(first (first
@ -780,7 +780,7 @@ WHERE job_id = $1"
(guix grafts) (guix grafts)
(guix derivations)) (guix derivations))
inf) inf)
(inferior-eval '(%graft? #f) inf) (inferior-eval '(when (defined? '%graft?) (%graft? #f)) inf)
(catch (catch
#t #t