Fix compilation error.

Introduced recently when refactoring the match rules, forgot to update
all call sites, and the bug went unnoticed for a while, oops. Not sure
the fix is all we need to get back a working feature (alter schema
rename to), but it allows to compile and that's all I have the time to
handle today.

See #466.
This commit is contained in:
Dimitri Fontaine 2016-10-25 11:54:56 +02:00
parent 4a431498ca
commit 43bb87943f

View File

@ -74,8 +74,7 @@
(:lambda (alter-schema-command)
(bind (((_ _ current-name _ _ new-name) alter-schema-command))
(pgloader.catalog::make-match-rule
:type :string
:target current-name
:rule (make-string-match-rule :target current-name)
:action #'pgloader.catalog::alter-schema-rename
:args (list new-name)))))