ocaml 3.09 transition

[helm.git] / helm / ocaml / mathql_interpreter / mQIPostgres.mli

diff --git a/helm/ocaml/mathql_interpreter/mQIPostgres.mli b/helm/ocaml/mathql_interpreter/mQIPostgres.mli
index 63752dfeb3cc073023eb32ee4bb8729fabce5d6e..cbbf3929dbdddde9d77ac522a1db6fd1b5d86b14 100644 (file)
--- a/helm/ocaml/mathql_interpreter/mQIPostgres.mli
+++ b/helm/ocaml/mathql_interpreter/mQIPostgres.mli
@@ -30,13 +30,7 @@ val init  : unit -> Postgres.connection
 
 val close : Postgres.connection -> unit
 
-val exec  : Postgres.connection -> 
-            string -> string list ->
-            (bool * string * string list) list ->
-            (bool * string * string list) list list -> 
-           string list list * string
-
-
-
-
-
+val exec  : Postgres.connection * (MQITypes.query -> unit) -> 
+            MQITypes.table -> MQITypes.columns ->
+           string MQITypes.con_true -> string MQITypes.con_false ->
+           MQITypes.result