From d126203ad9a178392918cf1512a779f9b37caaf7 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Sat, 13 Dec 2025 22:15:58 +0100
Subject: Activate the foreign_keys pragma.

This is required for cascading delete operations.
---
 db/conn.rkt | 1 +
 1 file changed, 1 insertion(+)

(limited to 'db/conn.rkt')

diff --git a/db/conn.rkt b/db/conn.rkt
index 11abc19..0219450 100644
--- a/db/conn.rkt
+++ b/db/conn.rkt
@@ -16,6 +16,7 @@
       (debug-log (format "Connection already instantiated: ~a" (current-conn)))
       (begin
         (current-conn (sqlite3-connect #:database path #:mode 'create))
+        (query-exec (current-conn) "PRAGMA foreign_keys = ON")
         (debug-log (format "Connection instantiated: ~a" (current-conn))))))
 
 (define (disconnect!)
-- 
cgit v1.2.3