@@ -183,6 +183,7 @@ unique columns = UnsafeTableConstraint $
183183primaryKey
184184 :: (SListI subcolumns, AllNotNull subcolumns)
185185 => NP (Column columns) subcolumns
186+ -- ^ identifying column or group of columns
186187 -> TableConstraint schema columns
187188primaryKey columns = UnsafeTableConstraint $
188189 "PRIMARY KEY" <+> parenthesized (renderCommaSeparated renderColumn columns)
@@ -227,10 +228,15 @@ foreignKey
227228 , SListI subcolumns
228229 , SListI refsubcolumns)
229230 => NP (Column columns) subcolumns
231+ -- ^ column or columns in the table
230232 -> Alias reftable
233+ -- ^ reference table
231234 -> NP (Column refcolumns) refsubcolumns
235+ -- ^ reference column or columns in the reference table
232236 -> OnDelete
237+ -- ^ what to do when reference is deleted
233238 -> OnUpdate
239+ -- ^ what to do when reference is updated
234240 -> TableConstraint schema columns
235241foreignKey columns reftable refcolumns onDelete onUpdate =
236242 UnsafeTableConstraint $