Add index on narinfo_files.narinfo_id

This is important for finding narinfo_files by narinfo, which happens
in database-select-narinfo-files.

1 files changed, 8 insertions, 1 deletions

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)))