30 lines
1.3 KiB
Haskell
30 lines
1.3 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Datarekisteri.Backend.Email where
|
|
|
|
import Datarekisteri.Backend.Types
|
|
import Data.Text (Text)
|
|
import Data.Text.Lazy (fromStrict)
|
|
import Datarekisteri.Core.Types
|
|
import Network.Mail.Mime
|
|
|
|
sendDatarekisteriEmail :: MonadEmail m => Text -> Text -> Email -> m ()
|
|
sendDatarekisteriEmail subject content to = do
|
|
from <- fromAddress
|
|
sendEmail $ simpleMail' (Address Nothing $ renderEmail to) from subject $ fromStrict content
|
|
|
|
sendVerificationEmail :: MonadEmail m => Text -> Email -> m ()
|
|
sendVerificationEmail secret = sendDatarekisteriEmail "Sähköpostin vahvistuskoodi" $
|
|
"Vahvista sähköpostisi syöttämällä alla oleva koodi rekisteriin:\n\n"
|
|
<> secret <> "\n\n"
|
|
<> "Mikäli et odottanut tätä viestiä, voit jättää sen turvallisesti huomiotta."
|
|
|
|
sendApplicationAcceptedEmail :: MonadEmail m => Email -> m ()
|
|
sendApplicationAcceptedEmail = sendDatarekisteriEmail "Jäsenhakemus hyväksytty" $
|
|
"Jäsenhakemuksesi Datat RY:lle on hyväksytty. Olet nyt yhdistyksen jäsen."
|
|
|
|
sendApplicationRejectedEmail :: MonadEmail m => Email -> m ()
|
|
sendApplicationRejectedEmail = sendDatarekisteriEmail "Jäsenhakemus hylätty" $
|
|
"Jäsenhakemuksesi Datat RY:lle on hylätty. Voit halutessasi kysyä hakemuksen"
|
|
<> " hylkäämisen syistä yhdistyksen hallitukselta <hallitus@datat.fi>."
|