@@ -4,7 +4,6 @@
44
55module Rel8.Order
66 ( Order(..)
7− , toOrderExprs
87 )
98where
109
@@ -18,7 +17,7 @@ import Data.Functor.Contravariant.Divisible ( Decidable, Divisible )
1817
1918-- opaleye
2019import qualified Opaleye.Internal.HaskellDB.PrimQuery as Opaleye
21−import qualified Opaleye.Internal.Order as Opaleye
20+import qualified Opaleye.Order as Opaleye
2221
2322
2423-- | An ordering expression for @a@. Primitive orderings are defined with
@@ -30,8 +29,3 @@ import qualified Opaleye.Internal.Order as Opaleye
3029type Order :: Type -> Type
3130newtype Order a = Order (Opaleye.Order a)
3231 deriving newtype (Contravariant, Divisible, Decidable, Semigroup, Monoid)
33−
34−
35−toOrderExprs :: Order a -> a -> [Opaleye.OrderExpr]
36−toOrderExprs (Order (Opaleye.Order order)) a =
37− uncurry Opaleye.OrderExpr <$> order a