[Racket] Ferti hydroponic nutrient solver, redux.
Activate the foreign_keys pragma.
This is required for cascading delete operations.
db/conn.rkt
@@ -16,6 +16,7 @@
16
16
(debug-log (format "Connection already instantiated: ~a" (current-conn)))
17
17
(begin
18
18
(current-conn (sqlite3-connect #:database path #:mode 'create))
19
Added:
(query-exec (current-conn) "PRAGMA foreign_keys = ON")
19
20
(debug-log (format "Connection instantiated: ~a" (current-conn))))))
20
21
21
22
(define (disconnect!)