iens

commit be168b63d43a306772743406e1409c0388b8bbaf
parent 55c05a051bc85dfdc6c3e609ec3d03c97dad4aeb
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Thu,  3 Sep 2026 18:02:44 +0000

Oldest schema is no longer supported, to avoid early database lock
Diffstat:
M
src/common.scm
 | 
14
+-------------

1 file changed, 1 insertion(+), 13 deletions(-)
diff --git a/src/common.scm b/src/common.scm
@@ -50,7 +50,7 @@
 (define (db-version)
   (query fetch-value (sql db "PRAGMA user_version;")))
 
-(when (null? (schema db))
+(when (= 0 (db-version))
   (write-line "Initializing database with schema v8")
   (for-each
     (lambda (s) (exec (sql/transient db s)))
@@ -116,18 +116,6 @@
           "CREATE UNIQUE INDEX i_source_rss ON source_rss(name);"
           "PRAGMA user_version = 8;")))
 
-(when (= 0 (db-version))
-  (write-line "Updating database schema from v0 to v1")
-  (assert (= 1 (query fetch-value
-                      (sql db "SELECT val FROM config WHERE key = ?;")
-                      "schema-version")))
-  (for-each
-    (lambda (s) (exec (sql/transient db s)))
-    (list "CREATE TABLE IF NOT EXISTS
-             selector (id INTEGER PRIMARY KEY, text TEXT);"
-          "DELETE FROM config WHERE key='schema-version';"
-          "PRAGMA user_version = 1;")))
-
 (when (= 1 (db-version))
   (write-line "Updating database schema from v1 to v2")
   (for-each