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

remove ';' from queries

Browse source
This commit is contained in:
Swrup 2022-04-04 21:15:04 +02:00
parent 6b5bfcd144
commit 613d901bca
5 changed files with 77 additions and 78 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/db.ml
View file

@ -18,7 +18,7 @@ module Db =
let () =
let set_foreign_keys_on =
(Caqti_type.unit ->. Caqti_type.unit) "PRAGMA foreign_keys = ON;"
(Caqti_type.unit ->. 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 set foreign_keys on")
@ -27,7 +27,7 @@ let () =
let query =
(Caqti_type.unit ->. Caqti_type.unit)
"CREATE TABLE IF NOT EXISTS dream_session (id TEXT PRIMARY KEY, label \
TEXT NOT NULL, expires_at REAL NOT NULL, payload TEXT NOT NULL);"
TEXT NOT NULL, expires_at REAL NOT NULL, payload TEXT NOT NULL)"
in
match Db.exec query () with
| Ok () -> ()