diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-10-22 17:36:30 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-10-22 17:36:30 -0400 |
| commit | e2ffafb9cfaf0bb921bc9bca491214cb464a38d7 (patch) | |
| tree | 4b2eee33b6c42ab787f16df7b8bfc48e6f910b5a /src/settings.sml | |
| parent | fc3b6857ae9d41f0fa64dc53e135be6d27d85c76 (diff) | |
Chars working with SQLite
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/settings.sml b/src/settings.sml index 05a9e5da..b7bc02ff 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -352,7 +352,9 @@ type dbms = { supportsNextval : bool, supportsNestedPrepared : bool, sqlPrefix : string, - supportsOctetLength : bool + supportsOctetLength : bool, + trueString : string, + falseString : string } val dbmses = ref ([] : dbms list) @@ -377,7 +379,9 @@ val curDb = ref ({name = "", supportsNextval = false, supportsNestedPrepared = false, sqlPrefix = "", - supportsOctetLength = false} : dbms) + supportsOctetLength = false, + trueString = "", + falseString = ""} : dbms) fun addDbms v = dbmses := v :: !dbmses fun setDbms s = |