@@ -452,9 +452,9 @@ addConstraint
452452 -> TableConstraintExpression schema columns constraint
453453 -- ^ constraint to add
454454 -> AlterTable schema (constraints :=> columns)
455− ((Create alias constraint constraints) :=> columns)
456−addConstraint constraintName constraint = UnsafeAlterTable $
457− "ADD" <+> "CONSTRAINT" <+> renderAlias constraintName
455+ (Create alias constraint constraints :=> columns)
456+addConstraint alias constraint = UnsafeAlterTable $
457+ "ADD" <+> "CONSTRAINT" <+> renderAlias alias
458458 <+> renderTableConstraintExpression constraint
459459
460460-- | A `dropConstraint` drops a table constraint.
@@ -469,12 +469,12 @@ addConstraint constraintName constraint = UnsafeAlterTable $
469469-- :}
470470-- "ALTER TABLE tab DROP CONSTRAINT positive;"
471471dropConstraint
472− :: KnownSymbol constraintName
473− => Alias constraintName
472+ :: KnownSymbol constraint
473+ => Alias constraint
474474 -- ^ constraint to drop
475475 -> AlterTable schema
476476 (constraints :=> columns)
477− (Drop constraintName constraints :=> columns)
477+ (Drop constraint constraints :=> columns)
478478dropConstraint constraint = UnsafeAlterTable $
479479 "DROP" <+> "CONSTRAINT" <+> renderAlias constraint
480480