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

Access CRegisterR refactored again

Browse Source
This commit is contained in:
SJost 2019-01-31 18:27:54 +01:00
parent 36813d3717
commit 1eb751b5f0
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Foundation.hs
View File

@ -473,12 +473,11 @@ tagAccessPredicate AuthTime = APDB $ \route _ -> case route of
case mbc of
(Just (Entity _ Course{courseRegisterFrom, courseRegisterTo}))
| not registered
, Just regFrom <- courseRegisterFrom -- Nothing = no registration
, regFrom <= now
, maybe True (now <=) courseRegisterTo -> return Authorized
, maybe False (now >=) courseRegisterFrom -- Nothing => no registration allowed
, maybe True (now <=) courseRegisterTo -> return Authorized
(Just (Entity _ Course{courseDeregisterUntil}))
| registered
, maybe True (now <=) courseDeregisterUntil -> return Authorized
, maybe True (now <=) courseDeregisterUntil -> return Authorized
_other -> unauthorizedI MsgUnauthorizedCourseTime
MessageR cID -> maybeT (unauthorizedI MsgUnauthorizedSystemMessageTime) $ do