From 4f5b888c030eb842d4cf207f13226f7e0443dee8 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 21 May 2021 19:45:37 +0100
Subject: Enable foreign key checking

I thought this would be on by default, but apparently not.
---
 guix-build-coordinator/datastore/sqlite.scm | 1 +
 1 file changed, 1 insertion(+)

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)
-- 
cgit v1.2.3