Browse Source

linted

notify
nek0 7 months ago
parent
commit
c8b4531513
  1. 12
      src/Util.hs

12
src/Util.hs

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

Loading…
Cancel
Save