diff options
Diffstat (limited to 'db/conn.rkt')
| -rw-r--r-- | db/conn.rkt | 1 |
1 files changed, 1 insertions, 0 deletions
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!) |