added sending email

Author: battermann

services/brig/src/Brig/User/Email.hs

@@ -56,12 +56,15 @@ sendVerificationMail to pair loc = do
 
 sendLoginVerificationMail :: Email -> Code.Value -> Maybe Locale -> (AppIO r) ()
 sendLoginVerificationMail email code mbLocale = do
-  tpl <- verificationLoginEmail . snd <$> userTemplates mbLocale
+  tpl <- verificationScimTokenEmail . snd <$> userTemplates mbLocale
   branding <- view templateBranding
   Email.sendMail $ renderSecondFactorVerificationEmail tpl email code branding
 
 sendGenerateScimTokenVerificationMail :: Email -> Code.Value -> Maybe Locale -> (AppIO r) ()
-sendGenerateScimTokenVerificationMail _ _ _ = pure () --todo(leif): implement
+sendGenerateScimTokenVerificationMail email code mbLocale = do
+  tpl <- verificationLoginEmail . snd <$> userTemplates mbLocale
+  branding <- view templateBranding
+  Email.sendMail $ renderSecondFactorVerificationEmail tpl email code branding
 
 sendActivationMail :: Email -> Name -> ActivationPair -> Maybe Locale -> Maybe UserIdentity -> (AppIO r) ()
 sendActivationMail to name pair loc ident = do

services/brig/src/Brig/User/Template.hs

@@ -58,7 +58,8 @@ data UserTemplates = UserTemplates
     deletionSms :: !DeletionSmsTemplate,
     deletionEmail :: !DeletionEmailTemplate,
     newClientEmail :: !NewClientEmailTemplate,
-    verificationLoginEmail :: !SecondFactorVerificationEmailTemplate
+    verificationLoginEmail :: !SecondFactorVerificationEmailTemplate,
+    verificationScimTokenEmail :: !SecondFactorVerificationEmailTemplate
   }
 
 data ActivationSmsTemplate = ActivationSmsTemplate
@@ -234,6 +235,13 @@ loadUserTemplates o = readLocalesDir defLocale templateDir "user" $ \fp ->
             <*> pure emailSender
             <*> readText fp "email/sender.txt"
         )
+    <*> ( SecondFactorVerificationEmailTemplate
+            <$> readTemplate fp "email/verification-scim-token-subject.txt"
+            <*> readTemplate fp "email/verification-scim-token.txt"
+            <*> readTemplate fp "email/verification-scim-token.html"
+            <*> pure emailSender
+            <*> readText fp "email/sender.txt"
+        )
   where
     gOptions = Opt.general $ Opt.emailSMS o
     uOptions = Opt.user $ Opt.emailSMS o