on 8575057 help sign in
rel8/src/Rel8/Query/Aggregate.hs
22 lines 435 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 )
21aggregate :: Query (Aggregate exprs) -> Query exprs
22aggregate = mapOpaleye (Opaleye.aggregate aggregator)