X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_interpreter%2FmQIMySql.ml;h=46f350e210dc25169ccb5c7f49e018d9ef520c70;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=4a68c93987a1c856af9c237ae938e20a7a76a3ed;hpb=9c04b87537176a487785472eaeee1d65953a0ab3;p=helm.git

diff --git a/helm/ocaml/mathql_interpreter/mQIMySql.ml b/helm/ocaml/mathql_interpreter/mQIMySql.ml
index 4a68c9398..46f350e21 100644
--- 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