Work around a problem loading guix revisions

Between b13b9384bc43bf93c754c037956c8ef9a99c2b41 and
601171a9bc7ca6e4acb932895a07c0ca9aedfdac, this method failed, so catch the
error to allow loading the affected revisions.
This commit is contained in:
Christopher Baines 2019-11-03 15:46:44 +00:00
parent 5e2bc7c6e9
commit 5e1808b4c2

View file

@ -417,7 +417,14 @@ WHERE job_id = $1"
(log-time (log-time
(simple-format #f "getting derivations for ~A" system-target-pairs) (simple-format #f "getting derivations for ~A" system-target-pairs)
(lambda () (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))))) (inferior-eval-with-store inf store (proc packages system-target-pairs)))))
(append (map list supported-system-pairs) (append (map list supported-system-pairs)
supported-system-cross-build-pairs))) supported-system-cross-build-pairs)))