In src/tutoreact.wiki, there is the following code:
let db = Ocsipersist.open_table "messages"
[...]
let get_message id = Ocsipersist.find db (string_of_int id)
[...]
let add_message v =
[...]
let%lwt () = Ocsipersist.add db (string_of_int index) v in
However Ocsipersist.open_table returns a value of type 'a Ocsipersist.table Lwt.t while Ocsipersist.find's and Ocsipersist.add's first argument must be of type 'b Ocsipersist.table .
In src/tutoreact.wiki, there is the following code:
let db = Ocsipersist.open_table "messages" [...] let get_message id = Ocsipersist.find db (string_of_int id) [...] let add_message v = [...] let%lwt () = Ocsipersist.add db (string_of_int index) v in
However Ocsipersist.open_table returns a value of type 'a Ocsipersist.table Lwt.t while Ocsipersist.find's and Ocsipersist.add's first argument must be of type 'b Ocsipersist.table .