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/checknest.sml | |
parent | ce596432147d4d538c545fc75d0770db2f707a3d (diff) |
tryDml
Diffstat (limited to 'src/checknest.sml')
-rw-r--r-- | src/checknest.sml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/checknest.sml b/src/checknest.sml index a53c7083..1147d3e6 100644 --- a/src/checknest.sml +++ b/src/checknest.sml @@ -138,9 +138,10 @@ fun annotateExp globals = | SOME {id, query, ...} => SOME {id = id, query = query, nested = IS.member (expUses globals body, id)}}, loc) - | EDml {dml, prepared} => + | EDml {dml, prepared, mode} => (EDml {dml = ae dml, - prepared = prepared}, loc) + prepared = prepared, + mode = mode}, loc) | ENextval {seq, prepared} => (ENextval {seq = ae seq, |