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

Cleanup some pgsql connection handling.

Browse Source
This commit is contained in:
Dimitri Fontaine 2014-09-10 22:20:20 +02:00
parent 422f87e912
commit be9abe48fe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/pgsql/schema.lisp
View File

@ -186,7 +186,7 @@
(defun truncate-tables (dbname table-name-list
&key (identifier-case :downcase))
"Truncate given TABLE-NAME in database DBNAME"
(pomo:with-connection (get-connection-spec dbname)
(with-pgsql-transaction (:dbname dbname)
(set-session-gucs *pg-settings*)
(let ((sql (format nil "TRUNCATE ~{~a~^,~};"
(loop :for table-name :in table-name-list