diff options
author | Christopher Baines <mail@cbaines.net> | 2021-12-20 09:54:48 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-12-20 09:54:48 +0000 |
commit | 45f1719ec351a90fb47c2365511095e4a3d0df73 (patch) | |
tree | 3817622dc66031d6d09b2f3168c365e97b3cde85 /guix-build-coordinator/datastore | |
parent | 7ddcdf4788eb82e859b3453bd4b772325579bc3a (diff) | |
download | build-coordinator-45f1719ec351a90fb47c2365511095e4a3d0df73.tar build-coordinator-45f1719ec351a90fb47c2365511095e4a3d0df73.tar.gz |
Log delays for entering transactions
Diffstat (limited to 'guix-build-coordinator/datastore')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 74384da..6c353f6 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -156,6 +156,7 @@ ;; the metric sum will output in the ;; exact form including the /q (exact->inexact seconds-delayed)) + (log-delay "datastore read" seconds-delayed) (when (> seconds-delayed 1) (format (current-error-port) @@ -194,6 +195,7 @@ ;; the metric sum will output in the ;; exact form including the /q (exact->inexact seconds-delayed)) + (log-delay "datastore write" seconds-delayed) (when (> seconds-delayed 1) (format (current-error-port) |