From b247c2428c3fac1498c9953c0a45bfa900802bab Mon Sep 17 00:00:00 2001 From: ygrek Date: Mon, 26 Oct 2009 11:56:54 +0200 Subject: [PATCH] sync with ocaml-mysql --- impl/sqlgg_mysql.ml | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/impl/sqlgg_mysql.ml b/impl/sqlgg_mysql.ml index aca300f..4403ea9 100644 --- a/impl/sqlgg_mysql.ml +++ b/impl/sqlgg_mysql.ml @@ -2,13 +2,12 @@ open Printf -module M = Mysql -module P = Mysql.P +module P = Mysql.Prepared module Make(Number : sig type t val of_string : string -> t val to_string : t -> string end) = struct type statement = P.stmt -type connection = M.dbd +type connection = Mysql.dbd type params = statement * string array type row = string option array type result = P.result @@ -58,7 +57,7 @@ let finally final f x = r let bracket res dtor k = finally (fun () -> dtor res) k res -let with_stmt db sql = bracket (P.prepare db sql) P.close +let with_stmt db sql = bracket (P.create db sql) P.close let select db sql set_params callback = with_stmt db sql (fun stmt -> -- 2.11.4.GIT