diff options
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/settings.sml b/src/settings.sml index d47e7d0e..d1901483 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -343,7 +343,8 @@ type dbms = { createSequence : string -> string, textKeysNeedLengths : bool, supportsNextval : bool, - supportsNestedPrepared : bool + supportsNestedPrepared : bool, + sqlPrefix : string } val dbmses = ref ([] : dbms list) @@ -365,7 +366,8 @@ val curDb = ref ({name = "", createSequence = fn _ => "", textKeysNeedLengths = false, supportsNextval = false, - supportsNestedPrepared = false} : dbms) + supportsNestedPrepared = false, + sqlPrefix = ""} : dbms) fun addDbms v = dbmses := v :: !dbmses fun setDbms s = |