From 11d926126ed95aaff2a54dec8413ddb41f29bf1b Mon Sep 17 00:00:00 2001
From: Semen Miroshnichenko <semenmiroshnichenko@gmail.com>
Date: Sat, 9 May 2020 17:49:04 +0200
Subject: [PATCH] Keep name casing for foreign keys on mssql (#1145)

---
 src/sources/mssql/mssql-schema.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/sources/mssql/mssql-schema.lisp b/src/sources/mssql/mssql-schema.lisp
index 97d6f9e..e84033f 100644
--- 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