Fix MS SQL foreign key support.

Avoid registering the first column name twice in the foreign key
definition.
This commit is contained in:
Dimitri Fontaine 2016-03-16 22:01:01 +01:00
parent 4cb83ec6a5
commit d2a1ac639f

View File

@ -257,9 +257,9 @@ ORDER BY KCU1.CONSTRAINT_NAME, KCU1.ORDINAL_POSITION"
(pg-fkey (pg-fkey
(make-pgsql-fkey :name fkey-name (make-pgsql-fkey :name fkey-name
:table table :table table
:columns (list col) :columns nil
:foreign-table ftable :foreign-table ftable
:foreign-columns (list fcol))) :foreign-columns nil))
(fkey (maybe-add-fkey table fkey-name pg-fkey (fkey (maybe-add-fkey table fkey-name pg-fkey
:key #'pgloader.pgsql::pgsql-fkey-name))) :key #'pgloader.pgsql::pgsql-fkey-name)))
(push-to-end col (pgloader.pgsql::pgsql-fkey-columns fkey)) (push-to-end col (pgloader.pgsql::pgsql-fkey-columns fkey))