From c8b4531513d0a89a2ebfb0d4bbcad74f3dff0f0b Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 16 Oct 2021 17:50:28 +0200 Subject: [PATCH] linted --- src/Util.hs | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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)