Mercurial > urweb

comparison src/monoize.sml @ 2133:e722bcc42eab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix missing SQL name-mangling in table initialization
author Istvan Chung <istvan@vivatropolis.org>
date Thu, 23 Apr 2015 16:37:15 -0400
parents f89be9cd2087
children 5a010f408f36 a07b91fa71db
comparison
equal deleted inserted replaced
2132:7b508cd0dbf9 2133:e722bcc42eab
4680 | (x, _) :: ebs => 4680 | (x, _) :: ebs =>
4681 (L'.ESeq ( 4681 (L'.ESeq (
4682 (L'.EDml (str 4682 (L'.EDml (str
4683 (foldl (fn ((x, _), s) => 4683 (foldl (fn ((x, _), s) =>
4684 s ^ ", " ^ Settings.mangleSql x ^ " = NULL") 4684 s ^ ", " ^ Settings.mangleSql x ^ " = NULL")
4685 ("UPDATE uw_" 4685 ("UPDATE "
4686 ^ tab 4686 ^ Settings.mangleSql tab
4687 ^ " SET " 4687 ^ " SET "
4688 ^ Settings.mangleSql x 4688 ^ Settings.mangleSql x
4689 ^ " = NULL") 4689 ^ " = NULL")
4690 ebs), L'.Error), loc), 4690 ebs), L'.Error), loc),
4691 e), loc) 4691 e), loc)