@@ -9,7 +9,8 @@ module Rel8.Table.Aggregate
99 ( groupBy
1010 , listAgg
1111 , nonEmptyAgg
12− , runAggregation
12+ , sequenceAggregate
13+ , distributeAggregate
1314 )
1415where
1516
@@ -74,5 +75,9 @@ nonEmptyAgg (toColumns -> exprs) = fromColumns $
7475 (pure exprs)
7576
7677
77−runAggregation :: Aggregates aggregates exprs => aggregates -> Aggregate exprs
78−runAggregation = fromColumns . toColumns
78+sequenceAggregate :: Aggregates aggregates exprs => aggregates -> Aggregate exprs
79+sequenceAggregate = fromColumns . toColumns
80+
81+
82+distributeAggregate :: Aggregates aggregates exprs => Aggregate exprs -> aggregates
83+distributeAggregate = fromColumns . toColumns