Small code cleanup.

This commit is contained in:
Dimitri Fontaine 2013-12-25 16:20:37 +01:00
parent 167407f644
commit 7d94d4ff62
2 changed files with 2 additions and 4 deletions

View File

@ -127,8 +127,7 @@
;; this function update :rows stats ;; this function update :rows stats
#'pgloader.pgsql:copy-from-queue dbname table-name dataq #'pgloader.pgsql:copy-from-queue dbname table-name dataq
;; we only are interested into the column names here ;; we only are interested into the column names here
:columns (let ((cols (columns csv))) :columns (mapcar #'car (columns csv))
(when cols (mapcar #'car cols)))
:truncate truncate :truncate truncate
:transforms (transforms csv)) :transforms (transforms csv))

View File

@ -104,8 +104,7 @@
;; this function update :rows stats ;; this function update :rows stats
#'pgloader.pgsql:copy-from-queue dbname table-name dataq #'pgloader.pgsql:copy-from-queue dbname table-name dataq
;; we only are interested into the column names here ;; we only are interested into the column names here
:columns (let ((cols (columns fixed))) :columns (mapcar #'car (columns fixed))
(when cols (mapcar #'car cols)))
:truncate truncate :truncate truncate
:transforms (transforms fixed)) :transforms (transforms fixed))