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

---
 Makefile                                      | 5 ++++-
 src/executable/haskell/Service/MailService.hs | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index d47552e..339ea3e 100644
--- a/Makefile
+++ b/Makefile
@@ -20,7 +20,10 @@ watch: build
 	@nodemon --watch src --delay 0.2 -e hs,conf --exec 'clear && make build-and-launch'
 
 build-and-launch:
-	@(pkill ad-listener || true) && (stack build && stack exec ad-listener || true)
+	@(pkill ad-listener || true) && (stack build && make run || true)
+
+run:
+	@stack exec ad-listener
 
 build:
 	@stack build
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