Versionbump: Disabled central mail sending function due to major updates in Network-HaskellNet-SMTP sendMail; solving other issues first.

This commit is contained in:
Stephan Barth 2024-02-18 19:01:22 +01:00
parent 8559456363
commit edd2cb3838

View File

@ -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