mirror of
https://github.com/circuithub/rel8.git
synced 2024-09-11 16:05:41 +03:00
Don't take aggregation function for aggregateTabulation
This commit is contained in:
parent
b86f4454e9
commit
9903886bf7
@ -67,9 +67,9 @@ aggregate = mapOpaleye (Opaleye.aggregate aggregator) . fmap (fromColumns . toCo
|
|||||||
|
|
||||||
aggregateTabulation
|
aggregateTabulation
|
||||||
:: (EqTable k, Aggregates aggregates exprs)
|
:: (EqTable k, Aggregates aggregates exprs)
|
||||||
=> (t -> aggregates) -> Tabulation k t -> Tabulation k exprs
|
=> Tabulation k aggregates -> Tabulation k exprs
|
||||||
aggregateTabulation f =
|
aggregateTabulation =
|
||||||
Rel8.Tabulate.aggregateTabulation . fmap (fromColumns . toColumns . f)
|
Rel8.Tabulate.aggregateTabulation . fmap (fromColumns . toColumns)
|
||||||
|
|
||||||
|
|
||||||
-- | Group equal tables together. This works by aggregating each column in the
|
-- | Group equal tables together. This works by aggregating each column in the
|
||||||
|
Loading…
Reference in New Issue
Block a user