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

Try to handle the guix store item being garbage collected

Browse source
This commit is contained in:
Christopher Baines 2019-03-28 20:41:05 +00:00
parent 0c6c413804
commit 76d6027b7c
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
1 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -170,12 +170,23 @@
package package
'package-transitive-supported-systems)) 'package-transitive-supported-systems))
(define (guix-store-path store) (define guix-store-path
(let ((store-path #f))
(lambda (store)
(if (and store-path
(file-exists? store-path))
store-path
(begin
(invalidate-derivation-caches!)
(let* ((guix-package (@ (gnu packages package-management) (let* ((guix-package (@ (gnu packages package-management)
guix)) guix))
(derivation (package-derivation store guix-package))) (derivation (package-derivation store guix-package)))
(build-derivations store (list derivation)) (build-derivations store (list derivation))
(let ((new-store-path
(derivation->output-path derivation))) (derivation->output-path derivation)))
(set! store-path new-store-path)
new-store-path)))))))
(define (nss-certs-store-path store) (define (nss-certs-store-path store)
(let* ((nss-certs-package (@ (gnu packages certs) (let* ((nss-certs-package (@ (gnu packages certs)