khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-13 17:32:35 +03:00
Code Issues Projects Releases Wiki Activity

Fix type error.

Browse Source
This commit is contained in:
Kei Hibino 2013-07-03 22:58:35 +09:00
parent 5bdddd043f
commit 9a4b5e999f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
doc/examples/Query.hs
View File

@ -43,12 +43,13 @@ allAccount =
| a <- query account
]
join1 :: Relation () (Employee, Department)
join1 =
relation $
[ e >< d
| e <- query employee
, d <- query department
, () <- on $ e ! Employee.deptId' .=. d ! Department.deptId'
, () <- on $ e ! Employee.deptId' .=. just (d ! Department.deptId')
]
main :: IO ()