From 650a23ed763d8627af14ed154fdb9097a80875c5 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 10 Sep 2019 09:33:25 +0200
Subject: Override sendmail path

---
 src/executable/haskell/Service/MailService.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/executable')

diff --git a/src/executable/haskell/Service/MailService.hs b/src/executable/haskell/Service/MailService.hs
index 3a5bfd0..a59dddf 100644
--- a/src/executable/haskell/Service/MailService.hs
+++ b/src/executable/haskell/Service/MailService.hs
@@ -22,7 +22,7 @@ send isMock mail =
   else do
     result <-
       left (T.pack . show) <$>
-        (try (Mime.renderSendMail . getMimeMail $ mail) :: IO (Either SomeException ()))
+        (try (Mime.renderSendMailCustom "sendmail" ["-t"] . getMimeMail $ mail) :: IO (Either SomeException ()))
     case result of
       Left err ->
         Logging.loggingLogger Logging.LevelError "" . T.concat $
-- 
cgit v1.2.3