mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-07 23:07:00 +02:00
Code Issues Projects Releases Wiki Activity

Fix SQL execute counters maintenance.

Browse Source
This commit is contained in:
Dimitri Fontaine 2018-02-19 22:06:51 +01:00
parent 957c975b9b
commit e129e77eb6
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/pgsql/connection.lisp
View File

@ -305,7 +305,8 @@
statement that fails. That's because this facility is meant for DDL. With statement that fails. That's because this facility is meant for DDL. With
ON_ERROR_STOP nil, log the problem and continue thanks to PostgreSQL ON_ERROR_STOP nil, log the problem and continue thanks to PostgreSQL
savepoints." savepoints."
(let ((nb-ok 0) (let ((sql-list (alexandria::ensure-list sql))
(nb-ok 0)
(nb-errors 0)) (nb-errors 0))
(when client-min-messages (when client-min-messages
(pomo:execute (pomo:execute
@ -313,15 +314,15 @@
(symbol-name client-min-messages)))) (symbol-name client-min-messages))))
(if on-error-stop (if on-error-stop
(loop :for sql :in (alexandria::ensure-list sql) (loop :for sql :in sql-list
:do (progn :do (progn
(log-message log-level "~a" sql) (log-message log-level "~a" sql)
(pomo:execute sql)) (pomo:execute sql))
;; never executed in case of error, which signals out of here ;; never executed in case of error, which signals out of here
:finally (incf nb-ok (length sql))) :finally (incf nb-ok (length sql-list)))
;; handle failures and just continue ;; handle failures and just continue
(loop :for sql :in (alexandria::ensure-list sql) (loop :for sql :in sql-list
:do (progn :do (progn
(pomo:execute "savepoint pgloader;") (pomo:execute "savepoint pgloader;")
(handler-case (handler-case