diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-18 10:27:32 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-18 10:27:32 -0400 |
| commit | fdca372b5e04a3f460fb3a635076b0fb81a492e7 (patch) | |
| tree | a26160e55fe25f54defba930744c0345a4ddf7a9 /src/settings.sml | |
| parent | 28caa2aa78f1dbfd7119ec742da0181f8863c6fa (diff) | |
Blobs tested in MySQL and SQLite
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 08a44471..c28e1102 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -345,7 +345,8 @@ type dbms = { textKeysNeedLengths : bool, supportsNextval : bool, supportsNestedPrepared : bool, - sqlPrefix : string + sqlPrefix : string, + supportsOctetLength : bool } val dbmses = ref ([] : dbms list) @@ -369,7 +370,8 @@ val curDb = ref ({name = "", textKeysNeedLengths = false, supportsNextval = false, supportsNestedPrepared = false, - sqlPrefix = ""} : dbms) + sqlPrefix = "", + supportsOctetLength = false} : dbms) fun addDbms v = dbmses := v :: !dbmses fun setDbms s = |