@@ -67,9 +67,9 @@ aggregate = mapOpaleye (Opaleye.aggregate aggregator) . fmap (fromColumns . toCo
68aggregateTabulation
68aggregateTabulation
69 :: (EqTable k, Aggregates aggregates exprs)
69 :: (EqTable k, Aggregates aggregates exprs)
70− => (t -> aggregates) -> Tabulation k t -> Tabulation k exprs
70+ => Tabulation k aggregates -> Tabulation k exprs
71−aggregateTabulation f =
71+aggregateTabulation =
72− Rel8.Tabulate.aggregateTabulation . fmap (fromColumns . toColumns . f)
72+ Rel8.Tabulate.aggregateTabulation . fmap (fromColumns . toColumns)
75-- | Group equal tables together. This works by aggregating each column in the
75-- | Group equal tables together. This works by aggregating each column in the