git.iko.soy/rel8
on fab5b4e help sign in
rel8/src/Rel8/Query/Order.hs
20 lines 389 B history raw
1module Rel8.Query.Order
2 ( orderBy
3 )
4where
6-- base
7import Prelude ()
9-- opaleye
10import qualified Opaleye.Order as Opaleye ( orderBy )
12-- rel8
13import Rel8.Order ( Order( Order ) )
14import Rel8.Query ( Query )
15import Rel8.Query.Opaleye ( mapOpaleye )
18-- | Order the rows returned by a query.
19orderBy :: Order a -> Query a -> Query a
20orderBy (Order o) = mapOpaleye (Opaleye.orderBy o)