From 19e4a36c9916815f689380e6a2c935b34a882981 Mon Sep 17 00:00:00 2001
From: Swrup <swrup@protonmail.com>
Date: Mon, 21 Feb 2022 12:17:16 +0100
Subject: [PATCH] set foreign keys ON ..

---
 src/db.ml | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/db.ml b/src/db.ml
index 31f6694..1429ccb 100644
--- a/src/db.ml
+++ b/src/db.ml
@@ -16,6 +16,13 @@ let random_state = Random.State.make_self_init ()
 module Db =
 (val Caqti_blocking.connect (Uri.of_string db_uri) |> Caqti_blocking.or_fail)
 
+let () =
+  let set_foreign_keys_on =
+    Caqti_request.exec Caqti_type.unit "PRAGMA foreign_keys = ON;"
+  in
+  if Result.is_error (Db.exec set_foreign_keys_on ()) then
+    Dream.error (fun log -> log "can't et foreign_keys on")
+
 (* TODO do image validation: length and MIME types with conan*)
 (* TODO do the same for text input: check length, forbidden chars and have a forbidden words filter*)
 let is_valid_image _content = true