mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-04 18:36:12 +02:00
Code Issues Projects Releases Wiki Activity

Fix handling of errors in utility threads (create index and such).

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-11-13 22:36:29 +01:00
parent 00d3886ba6
commit c16a56690a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/pgsql/queries.lisp
View File

@ -56,10 +56,14 @@
"Execute given SQL and resgister its timing into STATE."
(multiple-value-bind (res secs)
(timing
(with-pgsql-transaction (dbname)
(pgsql-execute sql)))
(handler-case
(with-pgsql-transaction (dbname)
(pgsql-execute sql))
(cl-postgres:database-error (e)
(declare (ignore e)) ; a log has already been printed
(pgstate-incf state label :errs 1 :rows (- count)))))
(declare (ignore res))
(pgstate-incf state label :rows count :secs secs)))
(pgstate-incf state label :read count :rows count :secs secs)))
(defun pgsql-execute (sql &key ((:client-min-messages level)))
"Execute given SQL in current transaction"