Mercurial > urweb

comparison src/monoize.sml @ 2264:bbcf9ba9b39a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix another mismatch between expunger SQL generation and SQL parser.
author Ziv Scully <ziv@mit.edu>
date Tue, 13 Oct 2015 20:24:37 -0400
parents f81f1930c5d6
children 985c8016b592
comparison
equal deleted inserted replaced
2263:dfadb5effdc0 2264:bbcf9ba9b39a
4369 val e = 4369 val e =
4370 case notNullable of 4370 case notNullable of
4371 [] => e 4371 [] => e
4372 | eb :: ebs => 4372 | eb :: ebs =>
4373 (L'.ESeq ( 4373 (L'.ESeq (
4374 (L'.EDml (foldl 4374 (L'.EDml ((L'.EStrcat (str ("DELETE FROM "
4375 (fn (eb, s) => 4375 ^ Settings.mangleSql tab
4376 (L'.EStrcat (s, 4376 ^ " WHERE "),
4377 (L'.EStrcat (str " OR ", 4377 foldl (fn (eb, s) =>
4378 cond eb), loc)), loc)) 4378 (L'.EStrcat (str "(",
4379 (L'.EStrcat (str ("DELETE FROM " 4379 (L'.EStrcat (s,
4380 ^ Settings.mangleSql tab 4380 (L'.EStrcat (str " OR ",
4381 ^ " WHERE "), 4381 (L'.EStrcat (cond eb,
4382 cond eb), loc) 4382 str ")"),
4383 ebs, L'.Error), loc), 4383 loc)), loc)), loc)), loc))
4384 (cond eb)
4385 ebs), loc),
4386 L'.Error), loc),
4384 e), loc) 4387 e), loc)
4385 in 4388 in
4386 e 4389 e
4387 end 4390 end
4388 | _ => e 4391 | _ => e