diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-11-03 15:46:44 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-11-03 15:46:44 +0000 |
| commit | 5e1808b4c2e8494d394bc479f06cdbbb3d30798d (patch) | |
| tree | 39cccc5a0a2ff6422c3e953bf4f7f32e0ba16d59 | |
| parent | 5e2bc7c6e920e1542ab8fde39dbddca443a7cbc8 (diff) | |
| download | data-service-5e1808b4c2e8494d394bc479f06cdbbb3d30798d.tar data-service-5e1808b4c2e8494d394bc479f06cdbbb3d30798d.tar.gz | |
Work around a problem loading guix revisions
Between b13b9384bc43bf93c754c037956c8ef9a99c2b41 and
601171a9bc7ca6e4acb932895a07c0ca9aedfdac, this method failed, so catch the
error to allow loading the affected revisions.
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 2e7eaf4..86c3a78 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -417,7 +417,14 @@ WHERE job_id = $1" (log-time (simple-format #f "getting derivations for ~A" system-target-pairs) (lambda () - (inferior-eval '(invalidate-derivation-caches!) inf) + (catch + 'match-error + (lambda () + (inferior-eval '(invalidate-derivation-caches!) inf)) + (lambda (key . args) + (simple-format + (current-error-port) + "warning: ignoring match-error from calling inferior invalidate-derivation-caches!\n"))) (inferior-eval-with-store inf store (proc packages system-target-pairs))))) (append (map list supported-system-pairs) supported-system-cross-build-pairs))) |