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

fix: typo

Browse Source
This commit is contained in:
Gregor Kleen 2019-10-05 09:57:51 +02:00
parent 1277e50587
commit a6e40f1be8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Foundation.hs
View File

@ -1009,8 +1009,8 @@ tagAccessPredicate AuthAllocationTime = APDB $ \mAuthId route _ -> case route of
mba <- mbAllocation tid ssh csh mba <- mbAllocation tid ssh csh
case mba of case mba of
Just (_, Allocation{..}) Just (_, Allocation{..})
| NTop allocationStaffRegisterTo <= NTop (Just now) | NTop allocationRegisterByStaffTo <= NTop (Just now)
|| NTop allocationStaffRegisterFrom >= NTop (Just now) || NTop allocationRegisterByStaffFrom >= NTop (Just now)
-> unauthorizedI MsgUnauthorizedAllocatedCourseRegister -> unauthorizedI MsgUnauthorizedAllocatedCourseRegister
_other -> return Authorized _other -> return Authorized