@@ -32,7 +32,7 @@ module Squeal.PostgreSQL.Definition
32 -- * Alter
32 -- * Alter
33 , alterTable
33 , alterTable
34 , alterTableRename
34 , alterTableRename
35− , AlterTable (UnsafeAlterTable, renderAlterTable)
35+ , AlterColumns (UnsafeAlterColumns, renderAlterColumns)
36 , addColumnDefault
36 , addColumnDefault
37 , addColumnNull
37 , addColumnNull
38 , dropColumn
38 , dropColumn
@@ -305,12 +305,12 @@ ALTER statements
305alterTable
305alterTable
306 :: HasTable table schema columns0
306 :: HasTable table schema columns0
307 => Alias table
307 => Alias table
308− -> AlterTable columns0 columns1
308+ -> AlterColumns columns0 columns1
309 -> Definition schema (Alter table schema columns1)
309 -> Definition schema (Alter table schema columns1)
310alterTable table alteration = UnsafeDefinition $
310alterTable table alteration = UnsafeDefinition $
311 "ALTER TABLE"
311 "ALTER TABLE"
312 <+> renderAlias table
312 <+> renderAlias table
313− <+> renderAlterTable alteration
313+ <+> renderAlterColumns alteration
316-- | `alterTable` changes the name of a table from the schema.
316-- | `alterTable` changes the name of a table from the schema.
@@ -326,49 +326,49 @@ alterTableRename table0 table1 = UnsafeDefinition $
326 "ALTER TABLE" <+> renderAlias table0
326 "ALTER TABLE" <+> renderAlias table0
327 <+> "RENAME TO" <+> renderAlias table1 <> ";"
327 <+> "RENAME TO" <+> renderAlias table1 <> ";"
329−newtype AlterTable
329+newtype AlterColumns
330 (columns0 :: ColumnsType)
330 (columns0 :: ColumnsType)
331 (columns1 :: ColumnsType) =
331 (columns1 :: ColumnsType) =
332− UnsafeAlterTable {renderAlterTable :: ByteString}
332+ UnsafeAlterColumns {renderAlterColumns :: ByteString}
333 deriving (GHC.Generic,Show,Eq,Ord,NFData)
333 deriving (GHC.Generic,Show,Eq,Ord,NFData)
335addColumnDefault
335addColumnDefault
336 :: KnownSymbol column
336 :: KnownSymbol column
337 => Alias column
337 => Alias column
338 -> TypeExpression ('Optional ty)
338 -> TypeExpression ('Optional ty)
339− -> AlterTable columns (Create column ('Optional ty) columns)
339+ -> AlterColumns columns (Create column ('Optional ty) columns)
340−addColumnDefault column ty = UnsafeAlterTable $
340+addColumnDefault column ty = UnsafeAlterColumns $
341 "ADD COLUMN" <+> renderAlias column <+> renderTypeExpression ty
341 "ADD COLUMN" <+> renderAlias column <+> renderTypeExpression ty
343addColumnNull
343addColumnNull
344 :: KnownSymbol column
344 :: KnownSymbol column
345 => Alias column
345 => Alias column
346 -> TypeExpression ('Required ('Null ty))
346 -> TypeExpression ('Required ('Null ty))
347− -> AlterTable columns (Create column ('Required ('Null ty)) columns)
347+ -> AlterColumns columns (Create column ('Required ('Null ty)) columns)
348−addColumnNull column ty = UnsafeAlterTable $
348+addColumnNull column ty = UnsafeAlterColumns $
349 "ADD COLUMN" <+> renderAlias column <+> renderTypeExpression ty
349 "ADD COLUMN" <+> renderAlias column <+> renderTypeExpression ty
351dropColumn
351dropColumn
352 :: KnownSymbol column
352 :: KnownSymbol column
353 => Alias column
353 => Alias column
354− -> AlterTable columns (Drop column columns)
354+ -> AlterColumns columns (Drop column columns)
355−dropColumn column = UnsafeAlterTable $
355+dropColumn column = UnsafeAlterColumns $
356 "DROP COLUMN" <+> renderAlias column
356 "DROP COLUMN" <+> renderAlias column
358renameColumn
358renameColumn
359 :: (KnownSymbol column0, KnownSymbol column1)
359 :: (KnownSymbol column0, KnownSymbol column1)
360 => Alias column0
360 => Alias column0
361 -> Alias column1
361 -> Alias column1
362− -> AlterTable columns (Rename column0 column1 columns)
362+ -> AlterColumns columns (Rename column0 column1 columns)
363−renameColumn column0 column1 = UnsafeAlterTable $
363+renameColumn column0 column1 = UnsafeAlterColumns $
364 "RENAME COLUMN" <+> renderAlias column0 <+> "TO" <+> renderAlias column1
364 "RENAME COLUMN" <+> renderAlias column0 <+> "TO" <+> renderAlias column1
366alterColumn
366alterColumn
367 :: (KnownSymbol column, HasColumn column columns ty0)
367 :: (KnownSymbol column, HasColumn column columns ty0)
368 => Alias column
368 => Alias column
369 -> AlterColumn ty0 ty1
369 -> AlterColumn ty0 ty1
370− -> AlterTable columns (Alter column columns ty1)
370+ -> AlterColumns columns (Alter column columns ty1)
371−alterColumn column alteration = UnsafeAlterTable $
371+alterColumn column alteration = UnsafeAlterColumns $
372 "ALTER COLUMN" <+> renderAlias column <+> renderAlterColumn alteration
372 "ALTER COLUMN" <+> renderAlias column <+> renderAlterColumn alteration
374newtype AlterColumn (ty0 :: ColumnType) (ty1 :: ColumnType) =
374newtype AlterColumn (ty0 :: ColumnType) (ty1 :: ColumnType) =