mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-10-26 10:18:01 +03:00
examples/HDBC/PostgreSQL: modify examples to use nulls ordering.
(grafted from d0260b7dfe3865f0711917d7c4d9bc498af7ae39)
This commit is contained in:
parent
5ae745d881
commit
33f6f5ecbd
@ -50,7 +50,7 @@ haskUserGroup =
|
||||
|
||||
wheres -< g ?!? Group.name' `likeMaybe` "Hask%"
|
||||
|
||||
asc -< u ?! User.id'
|
||||
orderBy' Asc NullsLast -< mg
|
||||
|
||||
returnA -< u >< mg ?! snd'
|
||||
|
||||
|
@ -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 }
|
||||
|
Loading…
Reference in New Issue
Block a user