module Controller.Index
  ( getIndex
  , signOut
  ) where

import Web.Scotty

import Network.HTTP.Types.Status (ok200)

import Conf (Conf(..))
import qualified LoginSession

import qualified Model.Json.Conf as M
import Model.Message.Key (Key)

import View.Page (page)

getIndex :: Conf -> Maybe Key -> ActionM ()
getIndex conf mbErrorKey = html $ page (M.Conf { M.currency = currency conf }) mbErrorKey

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