fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

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

Browse Source
This commit is contained in:
Stephan Barth 2024-02-18 19:01:22 +01:00
parent 8559456363
commit edd2cb3838
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Mail.hs
View File

@ -332,6 +332,12 @@ class Yesod site => YesodMail site where
^{pageBody} ^{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 defMailT :: ( MonadHandler m
, YesodMail (HandlerSite m) , YesodMail (HandlerSite m)
, MonadUnliftIO m , MonadUnliftIO m
@ -367,9 +373,11 @@ defMailT ls (MailT mailC) = do
} -> mailSmtp $ \conn -> do } -> mailSmtp $ \conn -> do
$logInfoS "Mail" $ "Submitting email: " <> tshow smtpData1 $logInfoS "Mail" $ "Submitting email: " <> tshow smtpData1
liftIO $ SMTP.sendMail liftIO $ SMTP.sendMail
returnPath (mailMaker
recipients returnPath
mail3 recipients
mail3
)
conn conn