@@ -18,5 +18,6 @@ import Rel8.Query.Opaleye ( mapOpaleye )
18import Rel8.Table.Opaleye ( aggregator )
18import Rel8.Table.Opaleye ( aggregator )
21+-- | Apply an aggregation to all rows returned by a 'Query'.
21aggregate :: Query (Aggregate exprs) -> Query exprs
22aggregate :: Query (Aggregate exprs) -> Query exprs
22aggregate = mapOpaleye (Opaleye.aggregate aggregator)
23aggregate = mapOpaleye (Opaleye.aggregate aggregator)