iens

commit 8d030ba0309392e6adebe6395eda1cd9ffe599cc
parent fd5dd5fe5d5cc24d32370740626092c258935c64
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sat,  6 Jan 2024 15:21:35 +0000

Foreign key checks enabled in SQLite schema
Diffstat:
M
src/iens.scm
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/iens.scm b/src/iens.scm
@@ -109,7 +109,8 @@
   (write-line (conc "Initializing database with schema v" schema-version))
   (for-each
     (lambda (s) (exec (sql db s)))
-    (list "CREATE TABLE config (key TEXT PRIMARY KEY, val);"
+    (list "PRAGMA foreign_keys = ON;"
+          "CREATE TABLE config (key TEXT PRIMARY KEY, val);"
           (conc "INSERT INTO config(key, val) VALUES "
                 "('schema-version'," schema-version ");")
           (conc "CREATE TABLE tag (id INTEGER PRIMARY KEY, "