{-# LANGUAGE OverloadedStrings #-}

module View.Mail.SignIn
  ( mail
  ) where

import Data.Text (Text)

import Conf (Conf)
import Model.Message
import Model.Message.Key
import Model.User (User(..))
import qualified Conf as Conf
import qualified Model.Mail as M

mail :: Conf -> User -> Text -> [Text] -> M.Mail
mail conf user url to =
  M.Mail
    { M.from = Conf.noReplyMail conf
    , M.to = to
    , M.subject = (getMessage SignInMailTitle)
    , M.plainBody = getParamMessage [name user, url] SignInMail
    }