Update along with operators.

This commit is contained in:
Kei Hibino 2013-08-25 17:28:31 +09:00
parent 1f9c355bee
commit e824191503

View File

@ -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'