khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-10-26 10:18:01 +03:00
Code Issues Projects Releases Wiki Activity

examples/HDBC/PostgreSQL: modify examples to use nulls ordering.

Browse Source 
(grafted from d0260b7dfe3865f0711917d7c4d9bc498af7ae39)
This commit is contained in:
Kei Hibino 2017-07-24 14:30:30 +09:00
parent 5ae745d881
commit 33f6f5ecbd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/HDBC/PostgreSQL/example/1/QueryArrowExample.hs
View File

@ -50,7 +50,7 @@ haskUserGroup =
wheres -< g ?!? Group.name' `likeMaybe` "Hask%"
asc -< u ?! User.id'
orderBy' Asc NullsLast -< mg
returnA -< u >< mg ?! snd'

2
examples/HDBC/PostgreSQL/example/1/QueryExample.hs
View File

@ -53,7 +53,7 @@ haskUserGroup =
, () <- wheres $ g ?!? Group.name' `likeMaybe` "Hask%"
, () <- asc $ u ?! User.id'
, () <- orderBy' mg Asc NullsLast
]
data UserOrGroup = UserOrGroup { mayUser :: Maybe User, mayGroup :: Maybe Group }