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

Time everywhere a derivation is built when loading a new revision

Browse source 
As this is useful information.
This commit is contained in:
Christopher Baines 2019-06-17 16:28:11 +01:00
parent ed0745096a
commit 7f0a0ed3b1
1 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -263,7 +263,10 @@
(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)) (log-time
"building the guix derivation"
(lambda ()
(build-derivations store (list derivation))))
(let ((new-store-path (let ((new-store-path
(derivation->output-path derivation))) (derivation->output-path derivation)))
@ -274,7 +277,10 @@
(let* ((nss-certs-package (@ (gnu packages certs) (let* ((nss-certs-package (@ (gnu packages certs)
nss-certs)) nss-certs))
(derivation (package-derivation store nss-certs-package))) (derivation (package-derivation store nss-certs-package)))
(build-derivations store (list derivation)) (log-time
"building the nss-certs derivation"
(lambda ()
(build-derivations store (list derivation))))
(derivation->output-path derivation))) (derivation->output-path derivation)))
(define (channel->derivation-file-name store channel) (define (channel->derivation-file-name store channel)
@ -357,10 +363,16 @@
(define (channel->manifest-store-item store channel) (define (channel->manifest-store-item store channel)
(let* ((manifest-store-item-derivation-file-name (let* ((manifest-store-item-derivation-file-name
(channel->derivation-file-name store channel)) (log-time
"computing the channel derivation"
(lambda ()
(channel->derivation-file-name store channel))))
(derivation (derivation
(read-derivation-from-file manifest-store-item-derivation-file-name))) (read-derivation-from-file manifest-store-item-derivation-file-name)))
(build-derivations store (list derivation)) (log-time
"building the channel derivation"
(lambda ()
(build-derivations store (list derivation))))
(derivation->output-path derivation))) (derivation->output-path derivation)))
(define (channel->guix-store-item store channel) (define (channel->guix-store-item store channel)