diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-06-28 16:41:10 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-28 16:41:10 -0400 |
commit | cc1ee568ed458ba1e693074d0dad9a27235b7963 (patch) | |
tree | f7c0ceec6bc23f7f071fd62af0d4fe01bc00858e /src/settings.sml | |
parent | b6bb5d0ed06785194ec9a717232fc95618758c66 (diff) |
Moved nextval code into Settings
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 86d8afa9..8ad1d3f6 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -324,7 +324,9 @@ type dbms = { -> 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 + inputs : sql_type list} -> Print.PD.pp_desc, + nextval : ErrorMsg.span -> Print.PD.pp_desc, + nextvalPrepared : {loc : ErrorMsg.span, id : int, query : string} -> Print.PD.pp_desc } val dbmses = ref ([] : dbms list) @@ -336,7 +338,9 @@ val curDb = ref ({name = "", query = fn _ => Print.box [], queryPrepared = fn _ => Print.box [], dml = fn _ => Print.box [], - dmlPrepared = fn _ => Print.box []} : dbms) + dmlPrepared = fn _ => Print.box [], + nextval = fn _ => Print.box [], + nextvalPrepared = fn _ => Print.box []} : dbms) fun addDbms v = dbmses := v :: !dbmses fun setDbms s = |