Call add-temp-root for the derivation file names

In an attempt to stop the derivations from being garbage collected between the
time they're generated, and when they're potentially read by the Guix Data
Service.
This commit is contained in:
Christopher Baines 2020-02-02 08:30:02 +01:00
parent 381acf312e
commit f59354ed23

View file

@ -396,12 +396,15 @@ WHERE job_id = $1"
(list inferior-package-id
system
target
(derivation-file-name
(if (string=? system target)
(package-derivation store package system)
(package-cross-derivation store package
target
system))))))
(let ((file-name
(derivation-file-name
(if (string=? system target)
(package-derivation store package system)
(package-cross-derivation store package
target
system)))))
(add-temp-root store file-name)
file-name))))
(lambda args
;; misc-error #f ~A ~S (No
;; cross-compilation for