Merge pull request #2013 from digitallyinduced/ses-cc-bcc

fix ses not sending to cc and bcc recipients
digitallyinduced · Nov 19, 2024 · a30f725 · a30f725
2 parents 44d8992 + 365a1e2
commit a30f725
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/IHP/Mail.hs b/IHP/Mail.hs
@@ -54,7 +54,7 @@ sendWithMailServer SES { .. } mail = do
     manager <- Network.HTTP.Client.newManager Network.HTTP.Client.TLS.tlsManagerSettings
     let ses = Mailer.SES {
             Mailer.sesFrom = cs $ addressEmail (mailFrom mail),
-            Mailer.sesTo = map (cs . addressEmail) (mailTo mail),
+            Mailer.sesTo = map (cs . addressEmail) ((mailTo mail) <> (mailCc mail) <> (mailBcc mail)),
             Mailer.sesAccessKey = accessKey,
             Mailer.sesSecretKey = secretKey,
             Mailer.sesSessionToken = Nothing,