diff options
Diffstat (limited to 'src/mysql.sml')
-rw-r--r-- | src/mysql.sml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/mysql.sml b/src/mysql.sml index 65e62588..49cd914c 100644 --- a/src/mysql.sml +++ b/src/mysql.sml @@ -413,6 +413,8 @@ fun init {dbstring, prepared = ss, tables, views, sequences} = newline, newline, p_list_sep newline (checkRel ("tables", true)) tables, + p_list_sep newline (fn name => checkRel ("tables", true) + (name, [("id", Settings.Client)])) sequences, p_list_sep newline (checkRel ("views", false)) views, string "}", newline, @@ -1444,7 +1446,7 @@ val () = addDbms {name = "mysql", p_cast = p_cast, p_blank = p_blank, supportsDeleteAs = false, - createSequence = fn s => "CREATE TABLE " ^ s ^ " (id INTEGER PRIMARY KEY AUTO_INCREMENT)", + createSequence = fn s => "CREATE TABLE " ^ s ^ " (uw_id INTEGER PRIMARY KEY AUTO_INCREMENT)", textKeysNeedLengths = true, supportsNextval = false, supportsNestedPrepared = false, |