circuithub/rel8
1
1
Fork 0
mirror of https://github.com/circuithub/rel8.git synced 2024-08-17 20:00:23 +03:00
Code Issues Projects Releases Wiki Activity

Don't take aggregation function for aggregateTabulation

Browse Source
This commit is contained in:
Shane O'Brien 2021-06-16 00:38:27 +01:00
parent b86f4454e9
commit 9903886bf7
No known key found for this signature in database
GPG Key ID: 35A00ED1B695C1A1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Rel8/Aggregate/Legacy.hs
View File

@ -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