mirror of
https://github.com/circuithub/rel8.git
synced 2024-10-27 02:08:37 +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
|
||||
:: (EqTable k, Aggregates aggregates exprs)
|
||||
=> (t -> aggregates) -> Tabulation k t -> Tabulation k exprs
|
||||
aggregateTabulation f =
|
||||
Rel8.Tabulate.aggregateTabulation . fmap (fromColumns . toColumns . f)
|
||||
=> Tabulation k aggregates -> Tabulation k exprs
|
||||
aggregateTabulation =
|
||||
Rel8.Tabulate.aggregateTabulation . fmap (fromColumns . toColumns)
|
||||
|
||||
|
||||
-- | Group equal tables together. This works by aggregating each column in the
|
||||
|
Loading…
Reference in New Issue
Block a user