diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-09-29 10:44:25 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-09-29 10:44:25 +0100 |
| commit | d236f05d0f7afc0f9908a0555f582ddd866439bf (patch) | |
| tree | 10fee25d637058a24e39c49249150ddcfd831d0b | |
| parent | c81d1e04eacb1c5d1d585ff1bc5ab54b0130eb9b (diff) | |
| download | data-service-d236f05d0f7afc0f9908a0555f582ddd866439bf.tar data-service-d236f05d0f7afc0f9908a0555f582ddd866439bf.tar.gz | |
Don't error when processing revisions of Guix without graft support
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index f176ab5..5df8700 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -716,7 +716,7 @@ WHERE job_id = $1" (guix grafts) (guix derivations)) inf) - (inferior-eval '(%graft? #f) inf) + (inferior-eval '(when (defined? '%graft?) (%graft? #f)) inf) (let* ((inferior-glibc-locales (first @@ -780,7 +780,7 @@ WHERE job_id = $1" (guix grafts) (guix derivations)) inf) - (inferior-eval '(%graft? #f) inf) + (inferior-eval '(when (defined? '%graft?) (%graft? #f)) inf) (catch #t |