From 9903886bf78ad8662dcaf722bd54654cacdb2aa9 Mon Sep 17 00:00:00 2001 From: Shane O'Brien Date: Wed, 16 Jun 2021 00:38:27 +0100 Subject: [PATCH] Don't take aggregation function for `aggregateTabulation` --- src/Rel8/Aggregate/Legacy.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Rel8/Aggregate/Legacy.hs b/src/Rel8/Aggregate/Legacy.hs index f1993ef..7b49ca2 100644 --- a/src/Rel8/Aggregate/Legacy.hs +++ b/src/Rel8/Aggregate/Legacy.hs @@ -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