Fix --upgrade-config basic usage.

This commit is contained in:
Dimitri Fontaine 2014-07-13 16:35:53 +02:00
parent f5fc5cce73
commit d00837f8fc
2 changed files with 7 additions and 2 deletions

View File

@ -192,7 +192,12 @@
(when upgrade-config
(loop for filename in arguments
do
(pgloader.ini:convert-ini-into-commands filename)
(handler-case
(with-monitor ()
(pgloader.ini:convert-ini-into-commands filename))
(condition (c)
(when debug (invoke-debugger c))
(uiop:quit 1)))
(format t "~%~%"))
(uiop:quit))

View File

@ -237,7 +237,7 @@
(loop
for (param option section default)
in `((:host "host" ,*global-section* ,*pgconn-host*)
(:port "port" ,*global-section* ,*pgconn-port*)
(:port "port" ,*global-section* ,(format nil "~d" *pgconn-port*))
(:user "user" ,*global-section* ,*pgconn-user*)
(:pass "pass" ,*global-section* ,*pgconn-pass*)
(:dbname "base" ,*global-section* nil))