From d2a1ac639f81471462db5d35b8fefb0031c0273e Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Wed, 16 Mar 2016 22:01:01 +0100 Subject: [PATCH] Fix MS SQL foreign key support. Avoid registering the first column name twice in the foreign key definition. --- src/sources/mssql/mssql-schema.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/sources/mssql/mssql-schema.lisp b/src/sources/mssql/mssql-schema.lisp index 3c0db09..9871b14 100644 --- a/src/sources/mssql/mssql-schema.lisp +++ b/src/sources/mssql/mssql-schema.lisp @@ -257,9 +257,9 @@ ORDER BY KCU1.CONSTRAINT_NAME, KCU1.ORDINAL_POSITION" (pg-fkey (make-pgsql-fkey :name fkey-name :table table - :columns (list col) + :columns nil :foreign-table ftable - :foreign-columns (list fcol))) + :foreign-columns nil)) (fkey (maybe-add-fkey table fkey-name pg-fkey :key #'pgloader.pgsql::pgsql-fkey-name))) (push-to-end col (pgloader.pgsql::pgsql-fkey-columns fkey))