@@ -452,9 +452,9 @@ addConstraint
452 -> TableConstraintExpression schema columns constraint
452 -> TableConstraintExpression schema columns constraint
453 -- ^ constraint to add
453 -- ^ constraint to add
454 -> AlterTable schema (constraints :=> columns)
454 -> AlterTable schema (constraints :=> columns)
455− ((Create alias constraint constraints) :=> columns)
455+ (Create alias constraint constraints :=> columns)
456−addConstraint constraintName constraint = UnsafeAlterTable $
456+addConstraint alias constraint = UnsafeAlterTable $
457− "ADD" <+> "CONSTRAINT" <+> renderAlias constraintName
457+ "ADD" <+> "CONSTRAINT" <+> renderAlias alias
458 <+> renderTableConstraintExpression constraint
458 <+> renderTableConstraintExpression constraint
460-- | A `dropConstraint` drops a table constraint.
460-- | A `dropConstraint` drops a table constraint.
@@ -469,12 +469,12 @@ addConstraint constraintName constraint = UnsafeAlterTable $
470-- "ALTER TABLE tab DROP CONSTRAINT positive;"
470-- "ALTER TABLE tab DROP CONSTRAINT positive;"
471dropConstraint
471dropConstraint
472− :: KnownSymbol constraintName
472+ :: KnownSymbol constraint
473− => Alias constraintName
473+ => Alias constraint
474 -- ^ constraint to drop
474 -- ^ constraint to drop
475 -> AlterTable schema
475 -> AlterTable schema
476 (constraints :=> columns)
476 (constraints :=> columns)
477− (Drop constraintName constraints :=> columns)
477+ (Drop constraint constraints :=> columns)
478dropConstraint constraint = UnsafeAlterTable $
478dropConstraint constraint = UnsafeAlterTable $
479 "DROP" <+> "CONSTRAINT" <+> renderAlias constraint
479 "DROP" <+> "CONSTRAINT" <+> renderAlias constraint