khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 06:37:03 +03:00
Code Issues Projects Releases Wiki Activity

Drop examples of deprecated functions.

Browse Source
This commit is contained in:
Kei Hibino 2015-12-30 21:12:57 +09:00
parent 191130668c
commit 8680e03165
2 changed files with 0 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,15 +26,6 @@ groupMemberShip =
, () <- on $ m ?! groupId' .=. just (g ! Group.id') , () <- on $ m ?! groupId' .=. just (g ! Group.id')
] ]
groupMemberShipE :: Relation () (Maybe Membership, Group)
groupMemberShipE =
relation
[ m >< g
| m <- queryMaybe membership
, g <- query group
, () <- onE $ m .! groupId' .=. g ! Group.id'
]
-- Monadic join style -- Monadic join style
userGroup0 :: Relation () (Maybe User, Maybe Group) userGroup0 :: Relation () (Maybe User, Maybe Group)
userGroup0 = userGroup0 =
@ -82,18 +73,6 @@ userGroup0' =
] ]
userGroup0E :: Relation () (Maybe User, Maybe Group)
userGroup0E =
relation
[ u >< mg ?! snd'
| u <- queryMaybe user
, mg <- queryMaybe groupMemberShipE
, () <- onE $ u .! User.id' .=. mg ?!? fst' .! userId'
, () <- asc $ u ?! User.id'
]
haskellUser :: Relation () (String, Maybe String) haskellUser :: Relation () (String, Maybe String)
haskellUser = haskellUser =
relation relation
@ -157,23 +136,6 @@ userGroup2 =
, () <- asc $ u ?! User.id' , () <- asc $ u ?! User.id'
] ]
userGroup2E :: Relation () (Maybe User, Maybe Group)
userGroup2E =
relation
[ u >< mg ?! snd'
| u <- queryMaybe user
, mg <- queryMaybe . relation $
[ m >< g
| m <- queryMaybe membership
, g <- query group
, () <- onE $ m .! groupId' .=. g ! Group.id'
]
, () <- onE $ u .! User.id' .=. mg ?!? fst' .! userId'
, () <- asc $ u ?! User.id'
]
-- Aggregation -- Aggregation
userGroupAggregate0 :: Relation () ((Maybe String, Int64), Maybe Bool) userGroupAggregate0 :: Relation () ((Maybe String, Int64), Maybe Bool)
userGroupAggregate0 = userGroupAggregate0 =

3
examples/HDBC/PostgreSQL/example/1/run.hs
View File

@ -41,12 +41,9 @@ run = handleSqlError' $ withConnectionIO connect
run' userGroup0 () run' userGroup0 ()
run' haskUserGroup () run' haskUserGroup ()
run' userGroup0' () run' userGroup0' ()
run' userGroup0E ()
run' haskellUser () run' haskellUser ()
run' userGroup1 () run' userGroup1 ()
-- run' userGroup1E ()
run' userGroup2 () run' userGroup2 ()
run' userGroup2E ()
run' userGroupAggregate0 () run' userGroupAggregate0 ()
run' userGroupAggregate1 () run' userGroupAggregate1 ()
run' userGroupAggregate2 () run' userGroupAggregate2 ()