mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-10-26 10:18:01 +03:00
examples/HDBC/PostgreSQL: drop old code.
This commit is contained in:
parent
d7cfefa4f2
commit
522a910ced
@ -105,22 +105,6 @@ userGroup1 =
|
||||
, () <- asc $ u ?! User.id'
|
||||
]
|
||||
|
||||
{-
|
||||
userGroup1E :: Relation () (Maybe User, Maybe Group)
|
||||
userGroup1E =
|
||||
relation
|
||||
[ u >< g
|
||||
| umg <- query $
|
||||
user `left` membership `on'` [\ u m -> u ! User.id' .=. m .! userId' ]
|
||||
`full` group `on'` [ \ um g -> um ?!? snd' .! groupId' .=. g .! Group.id' ]
|
||||
, let um = umg ! fst'
|
||||
u = um ?! fst'
|
||||
g = umg ! snd'
|
||||
|
||||
, () <- asc $ u ?! User.id'
|
||||
]
|
||||
-}
|
||||
|
||||
-- Nested monad
|
||||
userGroup2 :: Relation () (Maybe User, Maybe Group)
|
||||
userGroup2 =
|
||||
|
Loading…
Reference in New Issue
Block a user