module Rel8.Query.Order ( orderBy ) where -- base import Prelude () -- opaleye import qualified Opaleye.Order as Opaleye ( orderBy ) -- rel8 import Rel8.Order ( Order( Order ) ) import Rel8.Query ( Query ) import Rel8.Query.Opaleye ( mapOpaleye ) -- | Order the rows returned by a query. orderBy :: Order a -> Query a -> Query a orderBy :: forall a. Order a -> Query a -> Query a orderBy (Order Order a o) = forall a b. (Select a -> Select b) -> Query a -> Query b mapOpaleye (forall a. Order a -> Select a -> Select a Opaleye.orderBy Order a o)