Authorized

Auth.hs

orNotFound :: MaybeT Handler a -> Handler a
orNotFound mHandler = do
  act <- runMaybeT mHandler
  maybe notFound act

withStudentToken :: (StudentId -> CourseId -> Handler a) -> MaybeT Handler a
withStudentToken action = do
  mStudentToken <- MaybeT optionalStudentToken
  case mStudentToken of
    Nothing -> mempty
    Just (StudentAuth studentId courseId) -> MaybeT $ action studentId courseId
 
withTeacherToken :: (TeacherId -> Handler a) -> MaybeT Handler a
withTeacherToken action = do
  mTeacherToken <- MaybeT  optionalTeacherToken
  case mTeacherToken of
    Nothing -> mempty
    Just (TeacherAuth teacherId) -> MaybeT $ action teacherId

myHandler = orNotFound $ withStudentToken handleStudent <|> withTeacherToken handleTeacher