From ee175ea1f9151123e47d9cbfee0c6329b2e5d934 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 5 Sep 2010 14:00:57 -0400
Subject: tryDml

---
 src/prepare.sml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/prepare.sml')

diff --git a/src/prepare.sml b/src/prepare.sml
index 2f49405b..81de2fa7 100644
--- a/src/prepare.sml
+++ b/src/prepare.sml
@@ -246,11 +246,11 @@ fun prepExp (e as (_, loc), st) =
                           initial = initial, prepared = SOME {id = id, query = s, nested = true}}, loc), st)
         end
 
-      | EDml {dml, ...} =>
+      | EDml {dml, mode, ...} =>
         (case prepString (dml, st) of
              NONE => (e, st)
            | SOME (id, s, st) =>
-             ((EDml {dml = dml, prepared = SOME {id = id, dml = s}}, loc), st))
+             ((EDml {dml = dml, prepared = SOME {id = id, dml = s}, mode = mode}, loc), st))
 
       | ENextval {seq, ...} =>
         if #supportsNextval (Settings.currentDbms ()) then
-- 
cgit v1.2.3