mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-11-25 00:04:27 +03:00
adjust to fixed range condition of relational-record-examples
This commit is contained in:
parent
a61883381a
commit
45026d9395
@ -246,7 +246,7 @@ employee_4_3_2 :: Relation () Employee2
|
||||
employee_4_3_2 = relation $ do
|
||||
e <- query employee
|
||||
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
|
||||
|*| #fname e
|
||||
|*| #lname e
|
||||
|
Loading…
Reference in New Issue
Block a user