Mercurial > urweb

comparison src/prepare.sml @ 1293:acabf3935060

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tryDml
author Adam Chlipala <adam@chlipala.net>
date Sun, 05 Sep 2010 14:00:57 -0400
parents 7a31e0cf25e9
children b4480a56cab7
comparison
equal deleted inserted replaced
1292:a671c986f517 1293:acabf3935060
244 ((EQuery {exps = exps, tables = tables, rnum = rnum, 244 ((EQuery {exps = exps, tables = tables, rnum = rnum,
245 state = state, query = query, body = body, 245 state = state, query = query, body = body,
246 initial = initial, prepared = SOME {id = id, query = s, nested = true}}, loc), st) 246 initial = initial, prepared = SOME {id = id, query = s, nested = true}}, loc), st)
247 end 247 end
248 248
249 | EDml {dml, ...} => 249 | EDml {dml, mode, ...} =>
250 (case prepString (dml, st) of 250 (case prepString (dml, st) of
251 NONE => (e, st) 251 NONE => (e, st)
252 | SOME (id, s, st) => 252 | SOME (id, s, st) =>
253 ((EDml {dml = dml, prepared = SOME {id = id, dml = s}}, loc), st)) 253 ((EDml {dml = dml, prepared = SOME {id = id, dml = s}, mode = mode}, loc), st))
254 254
255 | ENextval {seq, ...} => 255 | ENextval {seq, ...} =>
256 if #supportsNextval (Settings.currentDbms ()) then 256 if #supportsNextval (Settings.currentDbms ()) then
257 let 257 let
258 val s = case seq of 258 val s = case seq of