18 lines
621 B
Haskell
18 lines
621 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Server.Email where
|
|
|
|
import Server.Types
|
|
import Data.Text (Text)
|
|
import Data.Text.Lazy (fromStrict)
|
|
import Network.Mail.Mime
|
|
|
|
sendVerificationEmail :: MonadEmail m => Email -> Text -> m ()
|
|
sendVerificationEmail to secret = do
|
|
from <- fromAddress
|
|
sendEmail $ simpleMail' (Address Nothing $ renderEmail to) from
|
|
"Sähköpostin vahvistuskoodi" $ fromStrict $
|
|
"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."
|