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

Filter out VIEWS from the current MySQL migration processing.

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-10-06 18:09:49 +02:00
parent 236c9ffdf5
commit 446df213bd
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mysql.lisp
View File

@ -53,11 +53,13 @@
for (table-name . coldef)
in
(caar (cl-mysql:query (format nil "
select table_name, column_name,
data_type, column_type, column_default,
is_nullable, extra
from information_schema.columns
where table_schema = '~a' ~@[and table_name in (~{'~a'~^,~})~]
select c.table_name, c.column_name,
c.data_type, c.column_type, c.column_default,
c.is_nullable, c.extra
from information_schema.columns c
join information_schema.tables t using(table_schema, table_name)
where c.table_schema = '~a' and t.table_type = 'BASE TABLE'
~@[and table_name in (~{'~a'~^,~})~]
order by table_name, ordinal_position" dbname only-tables)))
do
(let ((entry (assoc table-name schema :test 'equal)))