diff options
author | Christopher Baines <mail@cbaines.net> | 2019-03-15 09:31:52 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-03-15 09:31:52 +0000 |
commit | 9f162c3b2c9b21c1111c6cff972990b947b51955 (patch) | |
tree | 4e5be5054945cec4b0ee885d11ec7ce679183bbe | |
parent | c4c1f15050623a586cc49c55d8d2f1e61dc6c4ee (diff) | |
download | data-service-9f162c3b2c9b21c1111c6cff972990b947b51955.tar data-service-9f162c3b2c9b21c1111c6cff972990b947b51955.tar.gz |
Time more steps in load-new-guix-revision
This is useful for debugging purposes.
-rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 29 |
1 files changed, 24 insertions, 5 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index aedbb90..5b5190c 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -25,6 +25,17 @@ (define inferior-package-id (@@ (guix inferior) inferior-package-id)) +(define (log-time action f) + (simple-format #t "debug: Starting ~A\n" action) + (force-output) + (let* ((start-time (current-time)) + (result (f)) + (time-taken (- (current-time) start-time))) + (simple-format #t "debug: Finished ~A, took ~A seconds\n" + action time-taken) + (force-output) + result)) + (define (all-inferior-package-derivations store inf packages) (define proc `(lambda (store) @@ -70,12 +81,18 @@ (inferior-eval-with-store inf store proc)) (define (inferior-guix->package-derivation-ids store conn inf) - (let* ((packages (inferior-packages inf)) + (let* ((packages (log-time "fetching inferior packages" + (lambda () + (inferior-packages inf)))) (packages-metadata-ids - (inferior-packages->package-metadata-ids conn packages)) + (log-time "fetching inferior package metadata" + (lambda () + (inferior-packages->package-metadata-ids conn packages)))) (package-ids - (inferior-packages->package-ids - conn packages packages-metadata-ids)) + (log-time "getting package-ids" + (lambda () + (inferior-packages->package-ids + conn packages packages-metadata-ids)))) (inferior-package-id->package-id-hash-table (alist->hashq-table (map (lambda (package package-id) @@ -84,7 +101,9 @@ packages package-ids))) (inferior-data-4-tuples - (all-inferior-package-derivations store inf packages))) + (log-time "getting inferior derivations" + (lambda () + (all-inferior-package-derivations store inf packages))))) (simple-format #t "debug: finished loading information from inferior\n") |