diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-05-21 19:45:37 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-05-21 20:29:38 +0100 |
| commit | 4f5b888c030eb842d4cf207f13226f7e0443dee8 (patch) | |
| tree | e7de54b792db8ee20c550bca07782b033b0df3a9 | |
| parent | f89f70c5a7a4f5b66bf7d2a749297479e043141a (diff) | |
| download | build-coordinator-4f5b888c030eb842d4cf207f13226f7e0443dee8.tar build-coordinator-4f5b888c030eb842d4cf207f13226f7e0443dee8.tar.gz | |
Enable foreign key checking
I thought this would be on by default, but apparently not.
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 4f3ad34..ed76a09 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -168,6 +168,7 @@ (let ((db (db-open database-file))) (sqlite-exec db "PRAGMA busy_timeout = 5000;") + (sqlite-exec db "PRAGMA foreign_keys = ON;") (list db))) #:destructor (lambda (db) |