@@ -1034,7 +1034,7 @@ createDomain
10341034 => QualifiedAlias sch dom
10351035 -> (forall nullity. TypeExpression schemas (nullity ty))
10361036 -> (forall tab. Condition '[] '[] 'Ungrouped schemas '[] '[tab ::: '["value" ::: 'Null ty]])
1037− -> Definition schemas (Alter sch (Create alias ('Typedef ty) schema) schemas)
1037+ -> Definition schemas (Alter sch (Create dom ('Typedef ty) schema) schemas)
10381038createDomain dom ty condition =
10391039 UnsafeDefinition $ "CREATE DOMAIN" <+> renderSQL dom
10401040 <+> "AS" <+> renderTypeExpression ty