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: drop old code.

Browse Source
This commit is contained in:
Kei Hibino 2017-11-23 20:29:49 +09:00
parent d7cfefa4f2
commit 522a910ced
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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