From 365a1e2efa13a6decc90cccfb4215fdb51ea3182 Mon Sep 17 00:00:00 2001
From: Marc Scholten <marc@digitallyinduced.com>
Date: Mon, 18 Nov 2024 06:38:04 -0800
Subject: [PATCH] fix ses not sending to cc and bcc recipients

---
 IHP/Mail.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/IHP/Mail.hs b/IHP/Mail.hs
index d1393b30d..ce175023c 100644
--- 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,