pref-matrix

commit d5daf211f674465f311b4ae56b12d33abfc7a540
parent 6319028a51f1e23318aeeb3948552ecfdc7bce91
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Tue, 16 Jan 2024 17:35:51 +0000

Foreign key checks are enabled on all connections
Diffstat:
M
src/pref-matrix.scm
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/pref-matrix.scm b/src/pref-matrix.scm
@@ -104,6 +104,8 @@
 (define db
   (open-database (command-line-argument 1 "pref-matrix.sqlite")))
 
+(exec (sql db "PRAGMA foreign_keys = ON;"))
+
 (define (db-version)
   (query fetch-value (sql db "PRAGMA user_version;")))
 
@@ -111,7 +113,6 @@
   (for-each
     (lambda (s) (exec (sql db s)))
     (list "PRAGMA user_version = 1;"
-          "PRAGMA foreign_keys = ON;"
           "PRAGMA journal_mode = wal;"
           "PRAGMA synchronous = normal;"
           "CREATE TABLE config (key TEXT PRIMARY KEY, val);"