server/src/View/Mail/SignIn.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

{-# LANGUAGE OverloadedStrings #-}

module View.Mail.SignIn
  ( mail
  ) where

import           Data.Text          (Text)

import qualified Common.Message     as Message
import qualified Common.Message.Key as Key
import           Common.Model       (User (..))

import           Conf               (Conf)
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 = Message.get Key.SignIn_MailTitle
    , M.plainBody = Message.get (Key.SignIn_MailBody (_user_name user) url)
    }