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
#'pgloader.pgsql:copy-from-queue dbname table-name dataq
;; we only are interested into the column names here
:columns (let ((cols (columns csv)))
(when cols (mapcar #'car cols)))
:columns (mapcar #'car (columns csv))
:truncate truncate
:transforms (transforms csv))

View File

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