diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-06-17 16:28:11 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-06-17 16:28:11 +0100 |
| commit | 7f0a0ed3b13c4a650ffb7c4cb6693b1b23d0f628 (patch) | |
| tree | a51d2bb9781096e18b9c72dc5215b1414bc21cdf | |
| parent | ed0745096a2b2bc4b95aed408bc6c9b38470482f (diff) | |
| download | data-service-7f0a0ed3b13c4a650ffb7c4cb6693b1b23d0f628.tar data-service-7f0a0ed3b13c4a650ffb7c4cb6693b1b23d0f628.tar.gz | |
Time everywhere a derivation is built when loading a new revision
As this is useful information.
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 2d1fe09..af8f4fa 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -263,7 +263,10 @@ (let* ((guix-package (@ (gnu packages package-management) guix)) (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 (derivation->output-path derivation))) @@ -274,7 +277,10 @@ (let* ((nss-certs-package (@ (gnu packages certs) nss-certs)) (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))) (define (channel->derivation-file-name store channel) @@ -357,10 +363,16 @@ (define (channel->manifest-store-item store channel) (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 (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))) (define (channel->guix-store-item store channel) |