Mercurial > urweb
diff src/prepare.sml @ 879:b2a175a0f2ef
Demo working with MySQL
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 16 Jul 2009 18:10:29 -0400 |
parents | a8952047e1d3 |
children | 467285bb5578 |
line wrap: on
line diff
--- a/src/prepare.sml Thu Jul 16 16:29:13 2009 -0400 +++ b/src/prepare.sml Thu Jul 16 18:10:29 2009 -0400 @@ -199,7 +199,7 @@ 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 @@ 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 @@ 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