adjust to fixed range condition of relational-record-examples

This commit is contained in:
Kei Hibino 2023-12-03 02:32:25 +09:00
parent a61883381a
commit 45026d9395

View File

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