circuithub/rel8
1
1
Fork 0
mirror of https://github.com/circuithub/rel8.git synced 2024-11-09 12:48:16 +03:00
Code Issues Projects Releases Wiki Activity

Document Rel8.Table.Order

Browse Source
This commit is contained in:
Ollie Charles 2021-03-24 11:43:29 +00:00
parent 5a2ea3683f
commit cdc620da23
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Rel8/Table/Order.hs
View File

@ -28,6 +28,8 @@ import Rel8.Table.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 = contramap toColumns $ getConst $
htabulateA @(Columns a) $ \field -> case hfield hspecs field of
@ -39,6 +41,8 @@ ascTable = contramap toColumns $ getConst $
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 = contramap toColumns $ getConst $
htabulateA @(Columns a) $ \field -> case hfield hspecs field of