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

More MySQL debugging information.

Browse Source
This commit is contained in:
Dimitri Fontaine 2015-08-20 12:34:12 +02:00
parent 8f0db173de
commit ba44e9786d
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/sources/mysql/mysql-schema.lisp
View File

@ -76,6 +76,7 @@
(defun mysql-query (query &key row-fn (as-text t) (result-type 'list)) (defun mysql-query (query &key row-fn (as-text t) (result-type 'list))
"Execute given QUERY within the current *connection*, and set proper "Execute given QUERY within the current *connection*, and set proper
defaults for pgloader." defaults for pgloader."
(log-message :debug "MySQL: sending query: ~a" query)
(qmynd:mysql-query (conn-handle *connection*) query (qmynd:mysql-query (conn-handle *connection*) query
:row-fn row-fn :row-fn row-fn
:as-text as-text :as-text as-text

4
src/sources/mysql/mysql.lisp
View File

@ -321,6 +321,10 @@
(+ (length all-columns) (length all-fkeys) (+ (length all-columns) (length all-fkeys)
(length all-indexes) (length view-columns)))) (length all-indexes) (length view-columns))))
(log-message :notice
"MySQL metadata fetched: found ~d tables with ~d indexes total."
(length all-columns) (length all-indexes))
;; now return a plist to the caller ;; now return a plist to the caller
(list :all-columns all-columns (list :all-columns all-columns
:table-comments table-comments :table-comments table-comments