diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-17 14:04:05 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-17 14:04:05 -0400 |
| commit | a9b92a20c8f6cf6c73d92009269cadc37d7f4b5a (patch) | |
| tree | 35dfd4637b99c8ea34615391bc594cbc1a5ecfb5 /src/mysql.sml | |
| parent | 6ef6afbd006ee113802d33d2e2144a0b09ef385e (diff) | |
Check for existence of sequences (MySQL)
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, |