Mercurial > urweb

comparison src/monoize.sml @ 2232:a07b91fa71db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Ziv Scully <ziv@mit.edu>
date Wed, 06 May 2015 14:51:09 -0400
parents e10881cd92da e722bcc42eab
children 2b1af5dc6dee
comparison
equal deleted inserted replaced
2231:67e801cf42c6 2232:a07b91fa71db
4691 | (x, _) :: ebs => 4691 | (x, _) :: ebs =>
4692 (L'.ESeq ( 4692 (L'.ESeq (
4693 (L'.EDml (str 4693 (L'.EDml (str
4694 (foldl (fn ((x, _), s) => 4694 (foldl (fn ((x, _), s) =>
4695 s ^ ", " ^ Settings.mangleSql x ^ " = NULL") 4695 s ^ ", " ^ Settings.mangleSql x ^ " = NULL")
4696 ("UPDATE uw_" 4696 ("UPDATE "
4697 ^ tab 4697 ^ Settings.mangleSql tab
4698 ^ " SET " 4698 ^ " SET "
4699 ^ Settings.mangleSql x 4699 ^ Settings.mangleSql x
4700 ^ " = NULL") 4700 ^ " = NULL")
4701 ebs), L'.Error), loc), 4701 ebs), L'.Error), loc),
4702 e), loc) 4702 e), loc)