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

Fix the previous fix.

Browse Source 
See #614. Again. Should be ok now.
This commit is contained in:
Dimitri Fontaine 2017-08-25 01:56:34 +02:00
parent f20a5a0667
commit 72c58306ba
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/pgsql/pgsql-create-schema.lisp
View File

@ -69,18 +69,22 @@
(when include-drop
;; if asked, first DROP the schema CASCADE.
(loop :for schema :in (catalog-schema-list catalog)
:for schema-name := (ensure-unquoted (schema-name schema))
:for schema-name := (schema-name schema)
:when (and schema-name
(member schema-name schema-list :test #'string=))
(member (ensure-unquoted schema-name)
schema-list
:test #'string=))
:do (let ((sql (format nil "DROP SCHEMA ~a CASCADE;" schema-name)))
(pgsql-execute sql :client-min-messages client-min-messages))))
;; now create the schemas (again?)
(loop :for schema :in (catalog-schema-list catalog)
:for schema-name := (ensure-unquoted (schema-name schema))
:for schema-name := (schema-name schema)
:when (and schema-name
(or include-drop
(not (member schema-name schema-list :test #'string=))))
(not (member (ensure-unquoted schema-name)
schema-list
:test #'string=))))
:do (let ((sql (format nil "CREATE SCHEMA ~a;" (schema-name schema))))
(pgsql-execute sql :client-min-messages client-min-messages)))))