linted

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)