diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-06-28 16:22:17 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-28 16:22:17 -0400 |
| commit | 566f9f69e1abbed1891e5eec4a94325c79572f16 (patch) | |
| tree | a60c8ed4fb8703fb61d9844d7b02129464c2c6be /src/settings.sml | |
| parent | 5a877e7f69430dbb6c5b1398b15a7b64916c39a8 (diff) | |
Moved dml code into Settings
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/settings.sml b/src/settings.sml index 2e0a5ac8..86d8afa9 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -321,7 +321,10 @@ type dbms = { inputs : sql_type list, numCols : int, doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc) -> Print.PD.pp_desc} - -> Print.PD.pp_desc + -> Print.PD.pp_desc, + dml : ErrorMsg.span -> Print.PD.pp_desc, + dmlPrepared : {loc : ErrorMsg.span, id : int, dml : string, + inputs : sql_type list} -> Print.PD.pp_desc } val dbmses = ref ([] : dbms list) @@ -331,7 +334,9 @@ val curDb = ref ({name = "", global_init = Print.box [], init = fn _ => Print.box [], query = fn _ => Print.box [], - queryPrepared = fn _ => Print.box []} : dbms) + queryPrepared = fn _ => Print.box [], + dml = fn _ => Print.box [], + dmlPrepared = fn _ => Print.box []} : dbms) fun addDbms v = dbmses := v :: !dbmses fun setDbms s = |