diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-07-16 18:10:29 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-16 18:10:29 -0400 |
commit | 034761874175cd088c75820ee7f59d3a4ca0fa90 (patch) | |
tree | e68fb2c7ffcd8dd34ff69f24a48de2ada1c06684 /src/prepare.sml | |
parent | fa6034d3141983cecef030e539f9a333f10d466b (diff) |
Demo working with MySQL
Diffstat (limited to 'src/prepare.sml')
-rw-r--r-- | src/prepare.sml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/prepare.sml b/src/prepare.sml index 29def780..2bf23d72 100644 --- a/src/prepare.sml +++ b/src/prepare.sml @@ -199,7 +199,7 @@ fun prepExp (e as (_, loc), sns) = in ((EQuery {exps = exps, tables = tables, rnum = rnum, state = state, query = query, body = body, - initial = initial, prepared = SOME (#2 sns, s)}, loc), + initial = initial, prepared = SOME {id = #2 sns, query = s, nested = true}}, loc), ((s, n) :: #1 sns, #2 sns + 1)) end end @@ -211,7 +211,7 @@ fun prepExp (e as (_, loc), sns) = let val s = String.concat (rev ss) in - ((EDml {dml = dml, prepared = SOME (#2 sns, s)}, loc), + ((EDml {dml = dml, prepared = SOME {id = #2 sns, dml = s}}, loc), ((s, n) :: #1 sns, #2 sns + 1)) end) @@ -234,7 +234,7 @@ fun prepExp (e as (_, loc), sns) = let val s = String.concat (rev ss) in - ((ENextval {seq = seq, prepared = SOME (#2 sns, s)}, loc), + ((ENextval {seq = seq, prepared = SOME {id = #2 sns, query = s}}, loc), ((s, n) :: #1 sns, #2 sns + 1)) end end |