@@ -28,6 +28,8 @@ import Rel8.Table.Ord
28import Rel8.Type.Ord
28import Rel8.Type.Ord
31+-- | Construct an 'Order' for a 'Table' by sorting all columns into ascending
32+-- orders (any nullable columns will be sorted with @NULLS FIRST@).
31ascTable :: forall a. OrdTable a => Order a
33ascTable :: forall a. OrdTable a => Order a
32ascTable = contramap toColumns $ getConst $
34ascTable = contramap toColumns $ getConst $
33 htabulateA @(Columns a) $ \field -> case hfield hspecs field of
35 htabulateA @(Columns a) $ \field -> case hfield hspecs field of
@@ -39,6 +41,8 @@ ascTable = contramap toColumns $ getConst $
39 ords = hdicts @(Columns a) @(ConstrainDBType DBOrd)
41 ords = hdicts @(Columns a) @(ConstrainDBType DBOrd)
44+-- | Construct an 'Order' for a 'Table' by sorting all columns into descending
45+-- orders (any nullable columns will be sorted with @NULLS LAST@).
42descTable :: forall a. OrdTable a => Order a
46descTable :: forall a. OrdTable a => Order a
43descTable = contramap toColumns $ getConst $
47descTable = contramap toColumns $ getConst $
44 htabulateA @(Columns a) $ \field -> case hfield hspecs field of
48 htabulateA @(Columns a) $ \field -> case hfield hspecs field of