fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(allocations): fix behaviour of "active" dbTable-filter

Browse Source
This commit is contained in:
Gregor Kleen 2019-08-22 17:21:16 +02:00
parent f067f65ee5
commit b694a093d5
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Handler/Utils/Table/Columns.hs
View File

@ -160,15 +160,13 @@ sortAllocationShorthand queryShorthand = singletonMap "allocation-short" . SortC
fltrAllocationActive :: UTCTime -- ^ current time fltrAllocationActive :: UTCTime -- ^ current time
-> OpticFilterColumn' t (Last Bool) (E.SqlExpr (E.Entity Allocation)) -> OpticFilterColumn' t (Last Bool) (E.SqlExpr (E.Entity Allocation))
fltrAllocationActive cTime queryAllocation = singletonMap "active" . FilterColumn $ view queryAllocation >>> anyFilter fltrAllocationActive cTime queryAllocation = singletonMap "active" . FilterColumn $ \(view queryAllocation -> allocation) (Last criterion)
[ checkActive staffRegisterActive -> maybe (const E.true) ((E.==.) . E.val) criterion $ E.or
, checkActive staffAllocationActive [ staffRegisterActive allocation
, checkActive registerActive , staffAllocationActive allocation
] , registerActive allocation
]
where where
checkActive doCheck allocation
= maybe E.true (\b -> E.val b E.==. doCheck allocation) . getLast
staffRegisterActive allocation staffRegisterActive allocation
= E.maybe E.false (\f -> f E.<=. E.val cTime) (allocation E.^. AllocationStaffRegisterFrom) = E.maybe E.false (\f -> f E.<=. E.val cTime) (allocation E.^. AllocationStaffRegisterFrom)
E.&&. E.maybe E.true (\t -> E.val cTime E.<=. t) (allocation E.^. AllocationStaffRegisterTo) E.&&. E.maybe E.true (\t -> E.val cTime E.<=. t) (allocation E.^. AllocationStaffRegisterTo)