diff options
author | 2010-09-05 14:00:57 -0400 | |
---|---|---|
committer | 2010-09-05 14:00:57 -0400 | |
commit | 9b122d78f58a8c22d0f4c4bde2d935c4508e00b8 (patch) | |
tree | b1f65d2c756f6867bc59eb1a0bb424deefacfabe /src/cjr.sml | |
parent | ce596432147d4d538c545fc75d0770db2f707a3d (diff) |
tryDml
Diffstat (limited to 'src/cjr.sml')
-rw-r--r-- | src/cjr.sml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/cjr.sml b/src/cjr.sml index a19109d2..f34662dc 100644 --- a/src/cjr.sml +++ b/src/cjr.sml @@ -56,6 +56,8 @@ datatype pat' = withtype pat = pat' located +datatype failure_mode = datatype Settings.failure_mode + datatype exp' = EPrim of Prim.t | ERel of int @@ -92,7 +94,8 @@ datatype exp' = initial : exp, prepared : {id : int, query : string, nested : bool} option } | EDml of { dml : exp, - prepared : {id : int, dml : string} option } + prepared : {id : int, dml : string} option, + mode : failure_mode } | ENextval of { seq : exp, prepared : {id : int, query : string} option } | ESetval of { seq : exp, count : exp } |