on dev help sign in
some cleanup/fixes
abdaee4Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Definition.hs+2−3
@@ -56,7 +56,6 @@ module Squeal.PostgreSQL.Definition
56 , addColumnDefault
56 , addColumnDefault
57 , addColumnNull
57 , addColumnNull
58 , dropColumn
58 , dropColumn
59− -- , dropColumnCascade
60 , renameColumn
59 , renameColumn
61 , alterColumn
60 , alterColumn
62 , AlterColumn (UnsafeAlterColumn, renderAlterColumn)
61 , AlterColumn (UnsafeAlterColumn, renderAlterColumn)
@@ -130,9 +129,9 @@ createTable table columns constraints = UnsafeDefinition $
130-- >>> :set -XOverloadedLabels
129-- >>> :set -XOverloadedLabels
131-- >>> :{
130-- >>> :{
132-- renderDefinition $
131-- renderDefinition $
133−-- createTable #tab (int `As` #a :* real `As` #b :* Nil) Nil
132+-- createTableIfNotExists #tab (int `As` #a :* real `As` #b :* Nil) Nil
134-- :}
133-- :}
135−-- "CREATE TABLE tab (a int, b real);"
134+-- "CREATE TABLE IF NOT EXISTS tab (a int, b real);"
136createTableIfNotExists
135createTableIfNotExists
137 :: ( Has table schema (constraints :=> columns)
136 :: ( Has table schema (constraints :=> columns)
138 , SOP.SListI columns
137 , SOP.SListI columns