Versionbump: Disabled central mail sending function due to major updates in Network-HaskellNet-SMTP sendMail; solving other issues first.
This commit is contained in:
parent
8559456363
commit
edd2cb3838
14
src/Mail.hs
14
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
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user