Mercurial > urweb

comparison src/cjrize.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 c316ca3c9ec6
children b4480a56cab7
comparison
equal deleted inserted replaced
1292:a671c986f517 1293:acabf3935060
453 in 453 in
454 ((L'.EQuery {exps = exps', tables = tables', rnum = rnum, state = state, 454 ((L'.EQuery {exps = exps', tables = tables', rnum = rnum, state = state,
455 query = query, body = body, initial = initial, prepared = NONE}, loc), sm) 455 query = query, body = body, initial = initial, prepared = NONE}, loc), sm)
456 end 456 end
457 457
458 | L.EDml e => 458 | L.EDml (e, mode) =>
459 let 459 let
460 val (e, sm) = cifyExp (e, sm) 460 val (e, sm) = cifyExp (e, sm)
461 in 461 in
462 ((L'.EDml {dml = e, prepared = NONE}, loc), sm) 462 ((L'.EDml {dml = e, prepared = NONE, mode = mode}, loc), sm)
463 end 463 end
464 464
465 | L.ENextval e => 465 | L.ENextval e =>
466 let 466 let
467 val (e, sm) = cifyExp (e, sm) 467 val (e, sm) = cifyExp (e, sm)