From a9b92a20c8f6cf6c73d92009269cadc37d7f4b5a Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Fri, 17 Jul 2009 14:04:05 -0400 Subject: Check for existence of sequences (MySQL) --- src/mysql.sml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/mysql.sml') 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, -- cgit v1.2.3