change bindings.ml to syntax.ml

src/babillard.ml

@@ -1,5 +1,5 @@
 open Db
-include Bindings
+open Syntax
 
 type moderation_action =
   | Ignore

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

src/dune

@@ -4,7 +4,6 @@
   app
   babillard
   babillard_page
-  bindings
   catalog_page
   content
   db
@@ -15,6 +14,7 @@
   pp_babillard
   register
   report_page
+  syntax
   template
   template_utils
   thread_page

src/pp_babillard.ml

@@ -1,5 +1,5 @@
-include Bindings
+open Syntax
-include Babillard
+open Babillard
 open Db
 
 let pp_post fmt t =

src/user.ml

@@ -1,4 +1,4 @@
-include Bindings
+open Syntax
 open Db
 
 type t =