@@ -57,7 +57,7 @@ import Squeal.PostgreSQL.Schema
5757
5858{- |
5959A `Manipulation` is a statement which may modify data in the database,
60−but does not alter the schema. Examples are inserts, updates and deletes.
60+but does not alter its schemas. Examples are inserts, updates and deletes.
6161A `Query` is also considered a `Manipulation` even though it does not modify data.
6262
6363simple insert:
@@ -254,7 +254,7 @@ insertRows tab rw rws conflict returning = UnsafeManipulation $
254254 <> renderReturningClause returning
255255 where
256256 renderAliasPart, renderColumnValuePart
257− :: Aliased (ColumnValue schema '[] params) ty -> ByteString
257+ :: Aliased (ColumnValue db '[] params) ty -> ByteString
258258 renderAliasPart (_ `As` name) = renderAlias name
259259 renderColumnValuePart (value `As` _) = case value of
260260 Default -> "DEFAULT"
@@ -374,7 +374,7 @@ data ReturningClause
374374-- | Render a `ReturningClause`.
375375renderReturningClause
376376 :: SOP.SListI results
377− => ReturningClause schema params columns results
377+ => ReturningClause db params columns results
378378 -> ByteString
379379renderReturningClause = \case
380380 ReturningStar -> " RETURNING *"
@@ -402,7 +402,7 @@ data ConflictClause
402402-- | Render a `ConflictClause`.
403403renderConflictClause
404404 :: SOP.SListI (TableToColumns table)
405− => ConflictClause schema table params
405+ => ConflictClause db table params
406406 -> ByteString
407407renderConflictClause = \case
408408 OnConflictDoRaise -> ""
@@ -415,7 +415,7 @@ renderConflictClause = \case
415415 wh:whs -> " WHERE" <+> renderExpression (foldr (.&&) wh whs)
416416 where
417417 renderUpdate
418− :: Aliased (ColumnValue schema columns params) column
418+ :: Aliased (ColumnValue db columns params) column
419419 -> Maybe ByteString
420420 renderUpdate = \case
421421 Same `As` _ -> Nothing
@@ -453,7 +453,7 @@ update tab columns wh returning = UnsafeManipulation $
453453 <> renderReturningClause returning
454454 where
455455 renderUpdate
456− :: Aliased (ColumnValue schema columns params) column
456+ :: Aliased (ColumnValue db columns params) column
457457 -> Maybe ByteString
458458 renderUpdate = \case
459459 Same `As` _ -> Nothing
@@ -500,7 +500,8 @@ deleteFrom tab wh returning = UnsafeManipulation $
500500
501501-- | Delete rows returning `Nil`.
502502deleteFrom_
503− :: ( Has sch db schema, Has tab schema ('Table table)
503+ :: ( Has sch db schema
504+ , Has tab schema ('Table table)
504505 , row ~ TableToRow table
505506 , columns ~ TableToColumns table )
506507 => QualifiedAlias sch tab -- ^ table to delete from