Don't take aggregation function for `aggregateTabulation`
commit9903886bf78ad8662dcaf722bd54654cacdb2aa9
authorShane O'Brien <shane.obrien@circuithub.com>
dateWed 16 Jun 2021, 00:38 (5 years ago)
parentb86f445
src/Rel8/Aggregate/Legacy.hs+3−3
@@ -67,9 +67,9 @@ aggregate = mapOpaleye (Opaleye.aggregate aggregator) . fmap (fromColumns . toCo
6767
6868aggregateTabulation
6969 :: (EqTable k, Aggregates aggregates exprs)
70− => (t -> aggregates) -> Tabulation k t -> Tabulation k exprs
71−aggregateTabulation f =
72− Rel8.Tabulate.aggregateTabulation . fmap (fromColumns . toColumns . f)
70+ => Tabulation k aggregates -> Tabulation k exprs
71+aggregateTabulation =
72+ Rel8.Tabulate.aggregateTabulation . fmap (fromColumns . toColumns)
7373
7474
7575-- | Group equal tables together. This works by aggregating each column in the