diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-16 18:10:29 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-16 18:10:29 -0400 |
| commit | c01c7e97334a180b55b11a1bba93cf046628948d (patch) | |
| tree | e68fb2c7ffcd8dd34ff69f24a48de2ada1c06684 /src/settings.sml | |
| parent | 4289cd07dd2467dfbad297cf21ad7cfaedc08f2b (diff) | |
Demo working with MySQL
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/settings.sml b/src/settings.sml index 7393013e..812e323f 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -327,7 +327,8 @@ type dbms = { queryPrepared : {loc : ErrorMsg.span, id : int, query : string, inputs : sql_type list, cols : sql_type list, doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc) - -> Print.PD.pp_desc} + -> Print.PD.pp_desc, + nested : bool} -> Print.PD.pp_desc, dml : ErrorMsg.span -> Print.PD.pp_desc, dmlPrepared : {loc : ErrorMsg.span, id : int, dml : string, @@ -340,7 +341,8 @@ type dbms = { supportsDeleteAs : bool, createSequence : string -> string, textKeysNeedLengths : bool, - supportsNextval : bool + supportsNextval : bool, + supportsNestedPrepared : bool } val dbmses = ref ([] : dbms list) @@ -361,7 +363,8 @@ val curDb = ref ({name = "", supportsDeleteAs = false, createSequence = fn _ => "", textKeysNeedLengths = false, - supportsNextval = false} : dbms) + supportsNextval = false, + supportsNestedPrepared = false} : dbms) fun addDbms v = dbmses := v :: !dbmses fun setDbms s = |