mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-12-14 22:32:07 +03:00
Update along with operators.
This commit is contained in:
parent
1f9c355bee
commit
e824191503
@ -147,7 +147,7 @@ userGroup0Aggregate =
|
||||
userGroupStr :: Relation () (Maybe String)
|
||||
userGroupStr =
|
||||
relation $
|
||||
[ u ?!? User.name' .||? just (value " - ") .||? g ?!? Group.name'
|
||||
[ u ?!? User.name' ?||? just (value " - ") ?||? g ?!? Group.name'
|
||||
| ug <- query userGroup2
|
||||
, let u = ug ! fst'
|
||||
g = ug ! snd'
|
||||
|
Loading…
Reference in New Issue
Block a user