@@ -32,7 +32,7 @@ module Squeal.PostgreSQL.Definition
3232 -- * Alter
3333 , alterTable
3434 , alterTableRename
35− , AlterTable (UnsafeAlterTable, renderAlterTable)
35+ , AlterColumns (UnsafeAlterColumns, renderAlterColumns)
3636 , addColumnDefault
3737 , addColumnNull
3838 , dropColumn
@@ -305,12 +305,12 @@ ALTER statements
305305alterTable
306306 :: HasTable table schema columns0
307307 => Alias table
308− -> AlterTable columns0 columns1
308+ -> AlterColumns columns0 columns1
309309 -> Definition schema (Alter table schema columns1)
310310alterTable table alteration = UnsafeDefinition $
311311 "ALTER TABLE"
312312 <+> renderAlias table
313− <+> renderAlterTable alteration
313+ <+> renderAlterColumns alteration
314314 <> ";"
315315
316316-- | `alterTable` changes the name of a table from the schema.
@@ -326,49 +326,49 @@ alterTableRename table0 table1 = UnsafeDefinition $
326326 "ALTER TABLE" <+> renderAlias table0
327327 <+> "RENAME TO" <+> renderAlias table1 <> ";"
328328
329−newtype AlterTable
329+newtype AlterColumns
330330 (columns0 :: ColumnsType)
331331 (columns1 :: ColumnsType) =
332− UnsafeAlterTable {renderAlterTable :: ByteString}
332+ UnsafeAlterColumns {renderAlterColumns :: ByteString}
333333 deriving (GHC.Generic,Show,Eq,Ord,NFData)
334334
335335addColumnDefault
336336 :: KnownSymbol column
337337 => Alias column
338338 -> TypeExpression ('Optional ty)
339− -> AlterTable columns (Create column ('Optional ty) columns)
340−addColumnDefault column ty = UnsafeAlterTable $
339+ -> AlterColumns columns (Create column ('Optional ty) columns)
340+addColumnDefault column ty = UnsafeAlterColumns $
341341 "ADD COLUMN" <+> renderAlias column <+> renderTypeExpression ty
342342
343343addColumnNull
344344 :: KnownSymbol column
345345 => Alias column
346346 -> TypeExpression ('Required ('Null ty))
347− -> AlterTable columns (Create column ('Required ('Null ty)) columns)
348−addColumnNull column ty = UnsafeAlterTable $
347+ -> AlterColumns columns (Create column ('Required ('Null ty)) columns)
348+addColumnNull column ty = UnsafeAlterColumns $
349349 "ADD COLUMN" <+> renderAlias column <+> renderTypeExpression ty
350350
351351dropColumn
352352 :: KnownSymbol column
353353 => Alias column
354− -> AlterTable columns (Drop column columns)
355−dropColumn column = UnsafeAlterTable $
354+ -> AlterColumns columns (Drop column columns)
355+dropColumn column = UnsafeAlterColumns $
356356 "DROP COLUMN" <+> renderAlias column
357357
358358renameColumn
359359 :: (KnownSymbol column0, KnownSymbol column1)
360360 => Alias column0
361361 -> Alias column1
362− -> AlterTable columns (Rename column0 column1 columns)
363−renameColumn column0 column1 = UnsafeAlterTable $
362+ -> AlterColumns columns (Rename column0 column1 columns)
363+renameColumn column0 column1 = UnsafeAlterColumns $
364364 "RENAME COLUMN" <+> renderAlias column0 <+> "TO" <+> renderAlias column1
365365
366366alterColumn
367367 :: (KnownSymbol column, HasColumn column columns ty0)
368368 => Alias column
369369 -> AlterColumn ty0 ty1
370− -> AlterTable columns (Alter column columns ty1)
371−alterColumn column alteration = UnsafeAlterTable $
370+ -> AlterColumns columns (Alter column columns ty1)
371+alterColumn column alteration = UnsafeAlterColumns $
372372 "ALTER COLUMN" <+> renderAlias column <+> renderAlterColumn alteration
373373
374374newtype AlterColumn (ty0 :: ColumnType) (ty1 :: ColumnType) =