changeset 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 4ef0c6605b3a
children 93f3e35a7967
files src/settings.sml
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
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