This commit is contained in:
nek0 2021-10-16 17:50:28 +02:00
parent 51f618309d
commit c8b4531513
1 changed files with 7 additions and 5 deletions

View File

@ -63,7 +63,7 @@ sendUserNotification recipient subject message =
, mailTo =
[ Address
(Just $ userDetailsIdent recipient)
(email)
email
]
, mailCc = []
, mailBcc = []
@ -90,12 +90,14 @@ sendAdminNotification subject message =
-- TODO: Grab administrators from settings and actually send the mails to them
return ()
sendNotification :: Mail -> MateHandler ()
sendNotification mail = do
sendmail <- asks rsSendmailPath
sendmailPath <- asks rsSendmailPath
liftIO $ do
existence <- doesFileExist sendmail
existence <- doesFileExist sendmailPath
if existence
then
renderSendMailCustom sendmail [] mail
renderSendMailCustom sendmailPath [] mail
else
print "Warning: sending notification failed: Sendmail not present!"
print ("Warning: sending notification failed: Sendmail not present!"
:: String)