diff options
Diffstat (limited to 'nar-herder/database.scm')
-rw-r--r-- | nar-herder/database.scm | 9 |
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))) |