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

change bindings.ml to syntax.ml

Browse source
This commit is contained in:
Swrup 2022-03-31 00:01:52 +02:00
parent b9d95522a1
commit b718eae11b
6 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/discuss.ml
View file

@ -29,7 +29,7 @@ let find_comrades =
"SELECT from_id, to_id FROM msg WHERE from_id=? OR to_id=?"
in
fun user_id ->
let open Bindings in
let open Syntax in
let^ comrades = Db.Db.collect_list find_comrades (user_id, user_id) in
let comrades =
List.map (fun (l, r) -> if l = user_id then r else l) comrades
@ -46,7 +46,7 @@ let find_messages =
(from_id=? AND to_id=?)"
in
fun k1 k2 ->
let open Bindings in
let open Syntax in
let^ comrades = Db.Db.collect_list find_messages ((k1, k2), (k2, k1)) in
Ok comrades
@ -63,7 +63,7 @@ let render request =
| Error e -> Template_utils.render_unsafe e request
| Ok comrades -> (
let comrades =
Bindings.unwrap_list
Syntax.unwrap_list
(fun id ->
match User.get_nick id with
| Error _e as e -> e
@ -140,7 +140,7 @@ let insert_msg =
"INSERT INTO msg VALUES (NULL, ?, ?, ?);"
in
fun from_id to_id msg ->
let open Bindings in
let open Syntax in
let^ () = Db.Db.exec insert_msg (from_id, to_id, msg) in
Ok ()