| Postgres_C c -> MQIPostgres.close c
| No_C -> ()
-let exec handle table cols ct cfl =
+let exec handle out table cols ct cfl =
match pgc handle with
- | MySQL_C c -> MQIMySql.exec c table cols ct cfl
- | Postgres_C c -> MQIPostgres.exec c table cols ct cfl
- | No_C -> [], ""
+ | MySQL_C c -> MQIMySql.exec (c, out) table cols ct cfl
+ | Postgres_C c -> MQIPostgres.exec (c, out) table cols ct cfl
+ | No_C -> []
let connected handle =
pgc handle <> No_C