ocaml 3.09 transition

[helm.git] / helm / ocaml / mathql_interpreter / mQIMySql.ml

diff --git a/helm/ocaml/mathql_interpreter/mQIMySql.ml b/helm/ocaml/mathql_interpreter/mQIMySql.ml
index 4a68c93987a1c856af9c237ae938e20a7a76a3ed..46f350e210dc25169ccb5c7f49e018d9ef520c70 100644 (file)
--- a/helm/ocaml/mathql_interpreter/mQIMySql.ml
+++ b/helm/ocaml/mathql_interpreter/mQIMySql.ml
@@ -38,10 +38,10 @@ let init () =
     HR.get_opt HR.get_int "mathql_interpreter.mysql_connection.port" in
    let password =
     HR.get_opt HR.get_string "mathql_interpreter.mysql_connection.password" in
-   try Mysql.quick_connect ?host ?database ?user ?port ?password ()
+   try HMysql.quick_connect ?host ?database ?user ?port ?password ()
    with _ -> raise (Failure "mqi_connecion")
 
-let close c = Mysql.disconnect c
+let close c = HMysql.disconnect c
 
 let quote s =
    let rec quote_aux s =
@@ -56,7 +56,7 @@ let quote s =
 let exec (c, out) q = 
    let g = function None -> "" | Some v -> v in
    let f a = List.map g (Array.to_list a) in
-   out q; Mysql.map ~f:f (Mysql.exec c q)
+   out q; HMysql.map ~f:f (Mysql.exec c q)
 
 let exec c table cols ct cfl =
    let rec iter f last sep = function