Keep name casing for foreign keys on mssql (dimitri#1145)

amadev · May 9, 2020 · 11d9261 · 11d9261
1 parent 38a62a7
commit 11d9261
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/sources/mssql/mssql-schema.lisp b/src/sources/mssql/mssql-schema.lisp
@@ -146,7 +146,7 @@
                 (col-name  (apply-identifier-case col))
                 (fcol-name (apply-identifier-case fcol))
                 (pg-fkey
-                 (make-fkey :name fkey-name
+                 (make-fkey :name (apply-identifier-case fkey-name)
                             :table table
                             :columns nil
                             :foreign-table ftable