Mercurial > urweb
diff src/settings.sml @ 1959:3cc14f1e47d1
Stop quoting Postgres identifiers in 'noMangleSql' mode
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Wed, 15 Jan 2014 15:46:46 -0500 |
| parents | ac1be85e91ad |
| children | b15a4c2cb542 334b5cbff198 |
line wrap: on
line diff
--- a/src/settings.sml Wed Jan 15 14:54:26 2014 -0500 +++ b/src/settings.sml Wed Jan 15 15:46:46 2014 -0500 @@ -710,10 +710,10 @@ fun setMangleSql x = mangle := x fun mangleSqlTable s = if !mangle then "uw_" ^ capitalize s else if #name (currentDbms ()) = "mysql" then capitalize s - else "\"" ^ lowercase s ^ "\"" + else lowercase s fun mangleSql s = if !mangle then "uw_" ^ s else if #name (currentDbms ()) = "mysql" then lowercase s - else "\"" ^ lowercase s ^ "\"" + else lowercase s fun mangleSqlCatalog s = if !mangle then "uw_" ^ s else lowercase s val html5 = ref false