swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

set foreign keys ON ..

Browse source
This commit is contained in:
Swrup 2022-02-21 12:17:16 +01:00
parent 7137d2790f
commit 19e4a36c99
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/db.ml
View file

@ -16,6 +16,13 @@ let random_state = Random.State.make_self_init ()
module Db = module Db =
(val Caqti_blocking.connect (Uri.of_string db_uri) |> Caqti_blocking.or_fail) (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 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*) (* TODO do the same for text input: check length, forbidden chars and have a forbidden words filter*)
let is_valid_image _content = true let is_valid_image _content = true