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

fix(authorization): have AllocationTime consider ParticipantState

Browse Source
This commit is contained in:
Gregor Kleen 2020-10-12 10:54:27 +02:00
parent cbb7ec53ad
commit b69481e88f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Foundation/Authorization.hs
View File

@ -784,7 +784,7 @@ tagAccessPredicate AuthAllocationTime = APDB $ \mAuthId route _ -> case route of
Nothing -> return Authorized Nothing -> return Authorized
Just (cid, Allocation{..}) -> do Just (cid, Allocation{..}) -> do
registered <- case mAuthId of registered <- case mAuthId of
Just uid -> $cachedHereBinary (uid, cid) . existsBy $ UniqueParticipant uid cid Just uid -> $cachedHereBinary (uid, cid) $ exists [ CourseParticipantUser ==. uid, CourseParticipantCourse ==. cid, CourseParticipantState ==. CourseParticipantActive ]
_ -> return False _ -> return False
if if
| not registered | not registered