Mercurial > urweb
comparison src/monoize.sml @ 2264:bbcf9ba9b39a
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 |