Mercurial > urweb
diff src/settings.sml @ 877:dae141d911d9
MySQL accepts generated demo DDL
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 16 Jul 2009 13:59:30 -0400 |
| parents | 3c7b48040dcf |
| children | a8952047e1d3 |
line wrap: on
line diff
--- a/src/settings.sml Sun Jul 12 16:09:54 2009 -0400 +++ b/src/settings.sml Thu Jul 16 13:59:30 2009 -0400 @@ -337,7 +337,9 @@ sqlifyString : string -> string, p_cast : string * sql_type -> string, p_blank : int * sql_type -> string, - supportsDeleteAs : bool + supportsDeleteAs : bool, + createSequence : string -> string, + textKeysNeedLengths : bool } val dbmses = ref ([] : dbms list) @@ -355,7 +357,9 @@ sqlifyString = fn s => s, p_cast = fn _ => "", p_blank = fn _ => "", - supportsDeleteAs = false} : dbms) + supportsDeleteAs = false, + createSequence = fn _ => "", + textKeysNeedLengths = false} : dbms) fun addDbms v = dbmses := v :: !dbmses fun setDbms s =