on master help sign in
Rename runAggregation and add distributeAggregate
commit742f683a67a5cf734113656193227fc6f2fd757d authorShane O'Brien <shane.obrien@circuithub.com> dateThu 25 Mar 2021, 15:51 (6 years ago) parentcc0705f
2 files changed+10−4
src/Rel8.hs+2−1 src/Rel8/Table/Aggregate.hs+8−3
src/Rel8.hs+2−1
@@ -182,7 +182,8 @@ module Rel8
182182 -- ** Aggregation
183183 , Aggregate
184184 , aggregate
185− , runAggregation
185+ , sequenceAggregate
186+ , distrubteAggregate
186187 , listAgg
187188 , nonEmptyAgg
188189 , groupBy
src/Rel8/Table/Aggregate.hs+8−3
@@ -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