Quick patch to make everything work with MySql.

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

diff --git a/helm/ocaml/mathql_interpreter/mQIPostgres.ml b/helm/ocaml/mathql_interpreter/mQIPostgres.ml
index 7c4abcbf62b5beb1496c28b91afbda11b1275e14..0e6d7c2cccbbd415723f52e594d6893a3fbba733 100644 (file)
--- a/helm/ocaml/mathql_interpreter/mQIPostgres.ml
+++ b/helm/ocaml/mathql_interpreter/mQIPostgres.ml
@@ -26,14 +26,9 @@
 (*  AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
  *)
 
-let default_connection_string =
-   "dbname=mowgli user=helm"
+type connection = Postgres.connection
 
-let connection_string =
-   try Sys.getenv "POSTGRESQL_CONNECTION_STRING"
-   with Not_found -> default_connection_string 
-
-let init () =
+let init connection_string =
    try Some (new Postgres.connection connection_string)
    with _ -> raise (Failure ("MQIPostgres.init: " ^ connection_string))