diff options
author | Christopher Baines <mail@cbaines.net> | 2022-01-11 08:05:34 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-01-11 08:05:34 +0000 |
commit | 048c609667f1690fe0a8d8c9b772f9bc6dd412e0 (patch) | |
tree | 8d1a7c97451f9c87c2d4b2e8f596a28e7b9cc1e8 /guix-build-coordinator/datastore/sqlite.scm | |
parent | 4fd3e2c2d40faa2dad855a8f2b9502aab352f138 (diff) | |
download | build-coordinator-048c609667f1690fe0a8d8c9b772f9bc6dd412e0.tar build-coordinator-048c609667f1690fe0a8d8c9b772f9bc6dd412e0.tar.gz |
Add some delay logging when inserting derivations
As this could benefit from a little optimising.
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 28 |
1 files changed, 17 insertions, 11 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 72bf091..686da99 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -3401,16 +3401,20 @@ INSERT INTO derivations (name, system_id, fixed_output) derivation-outputs)) (let ((derivation-id (insert-derivation))) - (insert-derivation-inputs - db - derivation-id - (derivation-inputs derivation)) + (call-with-delay-logging + insert-derivation-inputs + #:args (list + db + derivation-id + (derivation-inputs derivation))) (let ((derivation-outputs - (insert-derivation-outputs - db - derivation-id - (derivation-outputs derivation)))) + (call-with-delay-logging + insert-derivation-outputs + #:args (list + db + derivation-id + (derivation-outputs derivation))))) (hash-set! %derivation-outputs-cache derivation-name derivation-outputs) @@ -3423,9 +3427,11 @@ INSERT INTO derivations (name, system_id, fixed_output) (append-map (lambda (derivation-input) (let ((output-ids-by-name - (insert-derivation-and-return-outputs - db - (derivation-input-derivation derivation-input)))) + (call-with-delay-logging + insert-derivation-and-return-outputs + #:args (list + db + (derivation-input-derivation derivation-input))))) (map (lambda (output-name) (assoc-ref output-ids-by-name output-name)) |