35 lines
918 B
Haskell
35 lines
918 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE TypeFamilies #-}
|
|
{-# LANGUAGE DuplicateRecordFields #-}
|
|
{-# LANGUAGE DisambiguateRecordFields #-}
|
|
{-# LANGUAGE RecordWildCards #-}
|
|
{-# LANGUAGE TypeApplications #-}
|
|
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
|
|
|
module Client.Handlers
|
|
( module Client.Handlers.Profile
|
|
, module Client.Handlers.Apply
|
|
, module Client.Handlers.Applications
|
|
, module Client.Handlers.VerifyEmail
|
|
, getHomeR
|
|
, postApiR
|
|
) where
|
|
|
|
import Relude
|
|
|
|
import Client.Handlers.Profile
|
|
import Client.Handlers.Apply
|
|
import Client.Handlers.Applications
|
|
import Client.Handlers.VerifyEmail
|
|
import Client.Types
|
|
import Yesod
|
|
import Yesod.Auth
|
|
import Server (serverApp)
|
|
|
|
getHomeR :: Handler Html
|
|
getHomeR = ifM (isJust <$> maybeAuthId) (redirect OwnProfileR) (redirect $ AuthR LoginR)
|
|
|
|
postApiR :: Handler ()
|
|
postApiR = sendWaiApplication =<< liftIO serverApp
|