diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-17 12:58:37 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-17 12:58:37 -0400 |
| commit | 2e4d220fbdbee54f07d0ab1bfccd050880012c25 (patch) | |
| tree | 0a5ee98e028ce9b02f2ba341da4ef81846d3c68e /src/settings.sml | |
| parent | ad2b8b250083aef97842f3f4f047ce7bc276673d (diff) | |
MySQL CGI working
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 = |