eidolon/Handler/Admin.hs

module Handler.Admin where

import Import

getAdminR :: Handler Html
getAdminR = do
  msu <- lookupSession "userId"
  case msu of
    Just tempUserId -> do
      userId <- return $ getUserIdFromText tempUserId
      user <- runDB $ getJust userId
      case userAdmin user of
        True -> do
          defaultLayout $ do
            setTitle "Administration: Menu"
            $(widgetFile "adminBase")
        False -> do
          setMessage "You have no admin rights"
          redirect $ HomeR
    Nothing -> do
      setMessage "You are not logged in"
      redirect $ LoginR