mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Time more steps in load-new-guix-revision
This is useful for debugging purposes.
This commit is contained in:
parent
c4c1f15050
commit
9f162c3b2c
|
@ -25,6 +25,17 @@
|
||||||
(define inferior-package-id
|
(define inferior-package-id
|
||||||
(@@ (guix inferior) 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 (all-inferior-package-derivations store inf packages)
|
||||||
(define proc
|
(define proc
|
||||||
`(lambda (store)
|
`(lambda (store)
|
||||||
|
@ -70,12 +81,18 @@
|
||||||
(inferior-eval-with-store inf store proc))
|
(inferior-eval-with-store inf store proc))
|
||||||
|
|
||||||
(define (inferior-guix->package-derivation-ids store conn inf)
|
(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
|
(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
|
(package-ids
|
||||||
(inferior-packages->package-ids
|
(log-time "getting package-ids"
|
||||||
conn packages packages-metadata-ids))
|
(lambda ()
|
||||||
|
(inferior-packages->package-ids
|
||||||
|
conn packages packages-metadata-ids))))
|
||||||
(inferior-package-id->package-id-hash-table
|
(inferior-package-id->package-id-hash-table
|
||||||
(alist->hashq-table
|
(alist->hashq-table
|
||||||
(map (lambda (package package-id)
|
(map (lambda (package package-id)
|
||||||
|
@ -84,7 +101,9 @@
|
||||||
packages
|
packages
|
||||||
package-ids)))
|
package-ids)))
|
||||||
(inferior-data-4-tuples
|
(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
|
(simple-format
|
||||||
#t "debug: finished loading information from inferior\n")
|
#t "debug: finished loading information from inferior\n")
|
||||||
|
|
Loading…
Reference in a new issue