git.iko.soy/rel8
on 8659965 help sign in
rel8/src/Rel8/Query/Aggregate.hs
23 lines 496 B history raw
1{-# language FlexibleContexts #-}
3module Rel8.Query.Aggregate
4 ( aggregate
5 )
6where
8-- base
9import Prelude ()
11-- opaleye
12import qualified Opaleye.Aggregate as Opaleye
14-- rel8
15import Rel8.Aggregate ( Aggregate )
16import Rel8.Query ( Query )
17import Rel8.Query.Opaleye ( mapOpaleye )
18import Rel8.Table.Opaleye ( aggregator )
21-- | Apply an aggregation to all rows returned by a 'Query'.
22aggregate :: Query (Aggregate exprs) -> Query exprs
23aggregate = mapOpaleye (Opaleye.aggregate aggregator)