summaryrefslogtreecommitdiff
path: root/src/settings.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/settings.sml')
-rw-r--r--src/settings.sml6
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 =