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

liftAR refactored to avoid unnecessary DB access

Browse Source
This commit is contained in:
SJost 2018-05-25 10:11:06 +02:00
parent f4964dcb55
commit d5edf5ee7b
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Foundation.hs
View File

@ -157,6 +157,7 @@ knownTags =
Nothing -> unauthorizedI $ MsgUnauthorizedSchoolLecturer Nothing -> unauthorizedI $ MsgUnauthorizedSchoolLecturer
(Just _) -> return Authorized (Just _) -> return Authorized
) )
-- TODO: Continue here!!!
] ]
declareWrapped [d| declareWrapped [d|
@ -170,6 +171,13 @@ getAccess r = DNF $ Set.map attrsAND attrsOR
attrsOR = routeAttrs r attrsOR = routeAttrs r
attrsAND = Set.fromList . Map.elems . Map.restrictKeys knownTags . Set.fromList . splitOn "AND" attrsAND = Set.fromList . Map.elems . Map.restrictKeys knownTags . Set.fromList . splitOn "AND"
evalAccess :: Route -> DB Authorized
evalAccess = undefined -- TODO -- ^ uses `getAccess`
evalAccess' :: Route -> Handler UniWorX Authorized
evalAccess = undefined -- TODO -- ^ uses `getAccess`
-- TODO: isAuthorized = evalAccess'
-- Menus and Favourites -- Menus and Favourites