diff options
author | Christopher Baines <mail@cbaines.net> | 2020-04-28 18:22:17 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-04-28 18:22:17 +0100 |
commit | 5fe8fe930477d8bfa17923fc6a5a2d26a6e2b031 (patch) | |
tree | fd13deeb89d788a986b3fd7681382322df665d78 /guix-build-coordinator/datastore.scm | |
parent | 1d7d053577aa74442e3af006d8cb4659638b5acc (diff) | |
download | build-coordinator-5fe8fe930477d8bfa17923fc6a5a2d26a6e2b031.tar build-coordinator-5fe8fe930477d8bfa17923fc6a5a2d26a6e2b031.tar.gz |
Start tracking the duration of a few datastore functions
Diffstat (limited to 'guix-build-coordinator/datastore.scm')
-rw-r--r-- | guix-build-coordinator/datastore.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore.scm b/guix-build-coordinator/datastore.scm index 7e5f502..5fec9e2 100644 --- a/guix-build-coordinator/datastore.scm +++ b/guix-build-coordinator/datastore.scm @@ -42,12 +42,14 @@ (re-export datastore-allocate-builds-to-agent) (re-export datastore-list-allocation-plan-builds) -(define (database-uri->datastore database) +(define* (database-uri->datastore database + #:key + metrics-registry) (cond ((string-prefix? "pg://" database) (postgresql-datastore database)) ((string-prefix? "sqlite://" database) - (sqlite-datastore database)) + (sqlite-datastore database #:metrics-registry metrics-registry)) (else (error (simple-format #f "Unknown database ~A" database))))) |