@@ -183,6 +183,7 @@ unique columns = UnsafeTableConstraint $
183primaryKey
183primaryKey
184 :: (SListI subcolumns, AllNotNull subcolumns)
184 :: (SListI subcolumns, AllNotNull subcolumns)
185 => NP (Column columns) subcolumns
185 => NP (Column columns) subcolumns
186+ -- ^ identifying column or group of columns
186 -> TableConstraint schema columns
187 -> TableConstraint schema columns
187primaryKey columns = UnsafeTableConstraint $
188primaryKey columns = UnsafeTableConstraint $
188 "PRIMARY KEY" <+> parenthesized (renderCommaSeparated renderColumn columns)
189 "PRIMARY KEY" <+> parenthesized (renderCommaSeparated renderColumn columns)
@@ -227,10 +228,15 @@ foreignKey
227 , SListI subcolumns
228 , SListI subcolumns
228 , SListI refsubcolumns)
229 , SListI refsubcolumns)
229 => NP (Column columns) subcolumns
230 => NP (Column columns) subcolumns
231+ -- ^ column or columns in the table
230 -> Alias reftable
232 -> Alias reftable
233+ -- ^ reference table
231 -> NP (Column refcolumns) refsubcolumns
234 -> NP (Column refcolumns) refsubcolumns
235+ -- ^ reference column or columns in the reference table
232 -> OnDelete
236 -> OnDelete
237+ -- ^ what to do when reference is deleted
233 -> OnUpdate
238 -> OnUpdate
239+ -- ^ what to do when reference is updated
234 -> TableConstraint schema columns
240 -> TableConstraint schema columns
235foreignKey columns reftable refcolumns onDelete onUpdate =
241foreignKey columns reftable refcolumns onDelete onUpdate =
236 UnsafeTableConstraint $
242 UnsafeTableConstraint $