diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-16 13:59:30 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-16 13:59:30 -0400 |
| commit | 7e10920b75383cd953898468385ae29e76bf184d (patch) | |
| tree | ab868a5482914e1edd50ddce3be30c1a02a19de7 /src/settings.sml | |
| parent | 662c635acece462b9a3d8f95f30716f9904b5ad5 (diff) | |
MySQL accepts generated demo DDL
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/settings.sml b/src/settings.sml index 32ab8bcd..99fa748d 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -337,7 +337,9 @@ type dbms = { 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 @@ val curDb = ref ({name = "", 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 = |