Log delays in insert-derivation-and-return-outputs

As I've seen this be quite slow.

1 files changed, 15 insertions, 13 deletions

diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index 828f9db..a09bde7 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -3355,19 +3355,21 @@ INSERT OR IGNORE INTO derivations (name, system_id, fixed_output)
 
             (changes-count db)))))
 
-  (let ((changes (insert-derivation)))
-    (unless (eq? changes 0)
-      (insert-derivation-inputs
-       db
-       derivation-name
-       (derivation-inputs derivation))
-
-      (insert-derivation-outputs
-       db
-       derivation-name
-       (derivation-outputs derivation)))
-
-    (select-derivation-outputs db derivation-name)))
+  (call-with-delay-logging
+   (lambda ()
+     (let ((changes (insert-derivation)))
+       (unless (eq? changes 0)
+         (insert-derivation-inputs
+          db
+          derivation-name
+          (derivation-inputs derivation))
+
+         (insert-derivation-outputs
+          db
+          derivation-name
+          (derivation-outputs derivation)))
+
+       (select-derivation-outputs db derivation-name)))))
 
 (define (insert-derivation-inputs db derivation-name derivation-inputs)
   (unless (null? derivation-inputs)