fix ses not sending to cc and bcc recipients

digitallyinduced · Nov 18, 2024 · 365a1e2 · 365a1e2
1 parent 8ad0227
commit 365a1e2
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,