summaryrefslogtreecommitdiff
path: root/src/mysql.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-07-17 12:58:37 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-07-17 12:58:37 -0400
commit2e4d220fbdbee54f07d0ab1bfccd050880012c25 (patch)
tree0a5ee98e028ce9b02f2ba341da4ef81846d3c68e /src/mysql.sml
parentad2b8b250083aef97842f3f4f047ce7bc276673d (diff)
MySQL CGI working
Diffstat (limited to 'src/mysql.sml')
-rw-r--r--src/mysql.sml7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/mysql.sml b/src/mysql.sml
index eef05a6a..65e62588 100644
--- a/src/mysql.sml
+++ b/src/mysql.sml
@@ -487,7 +487,9 @@ fun init {dbstring, prepared = ss, tables, views, sequences} =
string "}"]
else
- string "static void uw_db_prepare(uw_context ctx) { }",
+ box [string "static void uw_db_prepare(uw_context ctx) { }",
+ newline,
+ string "static void uw_db_validate(uw_context ctx) { }"],
newline,
newline,
@@ -1445,6 +1447,7 @@ val () = addDbms {name = "mysql",
createSequence = fn s => "CREATE TABLE " ^ s ^ " (id INTEGER PRIMARY KEY AUTO_INCREMENT)",
textKeysNeedLengths = true,
supportsNextval = false,
- supportsNestedPrepared = false}
+ supportsNestedPrepared = false,
+ sqlPrefix = "SET storage_engine=InnoDB;\n"}
end