From 5acfcc0a9d99d78a167c365534aa5bf592f5625e Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 24 Jun 2022 14:00:54 +0100 Subject: Add index on narinfo_files.narinfo_id This is important for finding narinfo_files by narinfo, which happens in database-select-narinfo-files. --- nar-herder/database.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/nar-herder/database.scm b/nar-herder/database.scm index 61f5bb1..64655df 100644 --- a/nar-herder/database.scm +++ b/nar-herder/database.scm @@ -97,6 +97,8 @@ CREATE TABLE narinfo_files ( url TEXT NOT NULL ); +CREATE INDEX narinfo_files_narinfo_id ON narinfo_files (narinfo_id); + CREATE TABLE narinfo_references ( narinfo_id INTEGER NOT NULL REFERENCES narinfos (id), store_path TEXT NOT NULL @@ -139,7 +141,12 @@ SELECT name FROM sqlite_master WHERE type = 'table' AND name = :name"))) (#f (perform-initial-database-setup db)) (_ #f)) - (sqlite-finalize statement))) + (sqlite-finalize statement)) + + (sqlite-exec + db + "CREATE INDEX IF NOT EXISTS narinfo_files_narinfo_id + ON narinfo_files (narinfo_id);")) (define (setup-database database-file metrics-registry) (let ((db (db-open database-file))) -- cgit v1.2.3