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:
parent
381acf312e
commit
f59354ed23
1 changed files with 9 additions and 6 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue