Override sendmail path

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 $