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