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

Fix read counters when reading data from SQLite.

Browse Source
This commit is contained in:
Dimitri Fontaine 2015-06-16 23:14:10 +02:00
parent 7e508374c4
commit b55ded11e0
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/sources/sqlite/sqlite.lisp
View File

@ -101,7 +101,9 @@
:do (setf (aref v x) val)) :do (setf (aref v x) val))
v) v)
counting t into rows counting t into rows
do (funcall process-row-fn row) do (progn
(pgstate-incf *state* (target sqlite) :read 1)
(funcall process-row-fn row))
finally finally
(sqlite:finalize-statement statement) (sqlite:finalize-statement statement)
(return rows)) (return rows))
@ -112,8 +114,7 @@
(defmethod copy-to-queue ((sqlite copy-sqlite) queue) (defmethod copy-to-queue ((sqlite copy-sqlite) queue)
"Copy data from SQLite table TABLE-NAME within connection DB into queue DATAQ" "Copy data from SQLite table TABLE-NAME within connection DB into queue DATAQ"
(let ((read (pgloader.queue:map-push-queue sqlite queue))) (map-push-queue sqlite queue))
(pgstate-incf *state* (target sqlite) :read read)))
(defmethod copy-from ((sqlite copy-sqlite) (defmethod copy-from ((sqlite copy-sqlite)
&key (kernel nil k-s-p) truncate disable-triggers) &key (kernel nil k-s-p) truncate disable-triggers)