change bindings.ml to syntax.ml

src/discuss.ml

@@ -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 ()