From edd2cb38384c8c5245a19d06d3e140407f7915b2 Mon Sep 17 00:00:00 2001
From: Stephan Barth <stephan.barth@uniworx.de>
Date: Sun, 18 Feb 2024 19:01:22 +0100
Subject: [PATCH] Versionbump: Disabled central mail sending function due to
 major updates in Network-HaskellNet-SMTP sendMail; solving other issues
 first.

---
 src/Mail.hs | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/src/Mail.hs b/src/Mail.hs
index a253273b8..faa21ef01 100644
--- a/src/Mail.hs
+++ b/src/Mail.hs
@@ -332,6 +332,12 @@ class Yesod site => YesodMail site where
         ^{pageBody}
     |]
 
+-- TODO versionbump stub
+-- stub method; defMailT most likely has to be reworked a bit. Do not want to solve this problem first
+mailMaker :: String -> [String] -> ByteString -> Mail
+--mailMaker senderMail receivers mailData = error "cannot send mails in the current version of the versionbump"
+mailMaker _ _ _ = error "cannot send mails in the current version of the versionbump"
+
 defMailT :: ( MonadHandler m
             , YesodMail (HandlerSite m)
             , MonadUnliftIO m
@@ -367,9 +373,11 @@ defMailT ls (MailT mailC) = do
                 } -> mailSmtp $ \conn -> do
       $logInfoS "Mail" $ "Submitting email: " <> tshow smtpData1
       liftIO $ SMTP.sendMail
-        returnPath
-        recipients
-        mail3
+        (mailMaker
+          returnPath
+          recipients
+          mail3
+        )
         conn