diff --git a/src/Util.hs b/src/Util.hs index 5bff00e..488036e 100644 --- a/src/Util.hs +++ b/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)