diff options
author | Adam Chlipala <adam@chlipala.net> | 2010-09-05 14:00:57 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2010-09-05 14:00:57 -0400 |
commit | 9b122d78f58a8c22d0f4c4bde2d935c4508e00b8 (patch) | |
tree | b1f65d2c756f6867bc59eb1a0bb424deefacfabe /src/settings.sig | |
parent | ce596432147d4d538c545fc75d0770db2f707a3d (diff) |
tryDml
Diffstat (limited to 'src/settings.sig')
-rw-r--r-- | src/settings.sig | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/settings.sig b/src/settings.sig index a5f0cfa7..51d06902 100644 --- a/src/settings.sig +++ b/src/settings.sig @@ -124,6 +124,8 @@ signature SETTINGS = sig val isBlob : sql_type -> bool val isNotNull : sql_type -> bool + datatype failure_mode = Error | None + type dbms = { name : string, (* Call it this on the command line *) @@ -149,9 +151,9 @@ signature SETTINGS = sig -> Print.PD.pp_desc, nested : bool} -> Print.PD.pp_desc, - dml : ErrorMsg.span -> Print.PD.pp_desc, + dml : ErrorMsg.span * failure_mode -> Print.PD.pp_desc, dmlPrepared : {loc : ErrorMsg.span, id : int, dml : string, - inputs : sql_type list} -> Print.PD.pp_desc, + inputs : sql_type list, mode : failure_mode} -> Print.PD.pp_desc, nextval : {loc : ErrorMsg.span, seqE : Print.PD.pp_desc, seqName : string option} -> Print.PD.pp_desc, nextvalPrepared : {loc : ErrorMsg.span, id : int, query : string} -> Print.PD.pp_desc, setval : {loc : ErrorMsg.span, seqE : Print.PD.pp_desc, count : Print.PD.pp_desc} -> Print.PD.pp_desc, |