Ur/Web: src/prepare.sml comparison

Demo working with MySQL

author	Adam Chlipala <adamc@hcoop.net>
date	Thu, 16 Jul 2009 18:10:29 -0400
parents	a8952047e1d3
children	467285bb5578

comparison

equal deleted inserted replaced

-:a8952047e1d3
+:b2a175a0f2ef
 let
 val s = String.concat (rev ss)
 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
 | EDml {dml, ...} =>
 NONE => (e, sns)
 | SOME (ss, n) =>
 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)
 | ENextval {seq, ...} =>
 if #supportsNextval (Settings.currentDbms ()) then
 NONE => (e, sns)
 | SOME (ss, n) =>
 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
 else
 (e, sns)

Mercurial > urweb