Moved query code into Settings

1 files changed, 7 insertions, 2 deletions

diff --git a/src/mysql.sml b/src/mysql.sml
index b791a93c..976fefef 100644
--- a/src/mysql.sml
+++ b/src/mysql.sml
@@ -186,7 +186,7 @@ fun init (dbstring, ss) =
              newline,
              string "}",
              newline,
-             string "conn = malloc(sizeof(conn));",
+             string "conn = calloc(1, sizeof(conn));",
              newline,
              string "conn->conn = mysql;",
              newline,
@@ -253,6 +253,9 @@ fun init (dbstring, ss) =
              newline]
     end
 
+fun query _ = raise Fail "MySQL query"
+fun queryPrepared _ = raise Fail "MySQL queryPrepared"
+
 val () = addDbms {name = "mysql",
                   header = "mysql/mysql.h",
                   link = "-lmysqlclient",
@@ -268,6 +271,8 @@ val () = addDbms {name = "mysql",
                                           newline],
                               string "}",
                                      newline],
-                  init = init}
+                  init = init,
+                  query = query,
+                  queryPrepared = queryPrepared}
 
 end