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

use caqti infix

Browse source
This commit is contained in:
Swrup 2022-04-04 21:12:31 +02:00
parent d57c359b1f
commit 6b5bfcd144
5 changed files with 102 additions and 121 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/db.ml
View file

@ -1,3 +1,5 @@
open Caqti_request.Infix
let db_root = App.data_dir
let () =
@ -16,14 +18,14 @@ module Db =
let () =
let set_foreign_keys_on =
Caqti_request.exec 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")
let () =
let query =
Caqti_request.exec Caqti_type.unit
(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);"
in