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

adjust to fixed range condition of relational-record-examples

Browse Source
This commit is contained in:
Kei Hibino 2023-12-03 02:32:25 +09:00
parent a61883381a
commit 45026d9395
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples.md
View File

@ -246,7 +246,7 @@ employee_4_3_2 :: Relation () Employee2
employee_4_3_2 = relation $ do employee_4_3_2 = relation $ do
e <- query employee e <- query employee
wheres $ #startDate e .>=. unsafeSQLiteDayValue "2001-01-01" wheres $ #startDate e .>=. unsafeSQLiteDayValue "2001-01-01"
wheres $ #startDate e .<. unsafeSQLiteDayValue "2003-01-01" wheres $ #startDate e .<=. unsafeSQLiteDayValue "2002-12-31"
return $ Employee2 |$| #empId e return $ Employee2 |$| #empId e
|*| #fname e |*| #fname e
|*| #lname e |*| #lname e