cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Call add-temp-root for the derivation file names

Browse source 
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
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
guix-data-service/jobs/load-new-guix-revision.scm
View file

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