mirror of
https://github.com/circuithub/rel8.git
synced 2024-09-19 13:27:13 +03:00
Document Rel8.Table.Order
This commit is contained in:
parent
5a2ea3683f
commit
cdc620da23
@ -28,6 +28,8 @@ import Rel8.Table.Ord
|
|||||||
import Rel8.Type.Ord
|
import Rel8.Type.Ord
|
||||||
|
|
||||||
|
|
||||||
|
-- | Construct an 'Order' for a 'Table' by sorting all columns into ascending
|
||||||
|
-- orders (any nullable columns will be sorted with @NULLS FIRST@).
|
||||||
ascTable :: forall a. OrdTable a => Order a
|
ascTable :: forall a. OrdTable a => Order a
|
||||||
ascTable = contramap toColumns $ getConst $
|
ascTable = contramap toColumns $ getConst $
|
||||||
htabulateA @(Columns a) $ \field -> case hfield hspecs field of
|
htabulateA @(Columns a) $ \field -> case hfield hspecs field of
|
||||||
@ -39,6 +41,8 @@ ascTable = contramap toColumns $ getConst $
|
|||||||
ords = hdicts @(Columns a) @(ConstrainDBType DBOrd)
|
ords = hdicts @(Columns a) @(ConstrainDBType DBOrd)
|
||||||
|
|
||||||
|
|
||||||
|
-- | Construct an 'Order' for a 'Table' by sorting all columns into descending
|
||||||
|
-- orders (any nullable columns will be sorted with @NULLS LAST@).
|
||||||
descTable :: forall a. OrdTable a => Order a
|
descTable :: forall a. OrdTable a => Order a
|
||||||
descTable = contramap toColumns $ getConst $
|
descTable = contramap toColumns $ getConst $
|
||||||
htabulateA @(Columns a) $ \field -> case hfield hspecs field of
|
htabulateA @(Columns a) $ \field -> case hfield hspecs field of
|
||||||
|
Loading…
Reference in New Issue
Block a user