diff --git a/src/Foundation.hs b/src/Foundation.hs
index f488b367c..10cded5a3 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -157,6 +157,7 @@ knownTags =
             Nothing  -> unauthorizedI $ MsgUnauthorizedSchoolLecturer
             (Just _) -> return Authorized
    )
+   -- TODO: Continue here!!!
   ]
 
 declareWrapped [d|
@@ -170,6 +171,13 @@ getAccess r = DNF $ Set.map attrsAND attrsOR
     attrsOR  = routeAttrs r
     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