module Controller.Index
  ( getIndexAction
  , signOutAction
  ) where

import Web.Scotty

import Network.HTTP.Types.Status (ok200)

import qualified LoginSession

import View.Page (page)

getIndexAction :: ActionM ()
getIndexAction = html page

signOutAction :: ActionM ()
signOutAction = do
  LoginSession.delete
  status ok200