diff options
| -rw-r--r-- | Makefile | 5 | ||||
| -rw-r--r-- | src/executable/haskell/Service/MailService.hs | 2 |
2 files changed, 5 insertions, 2 deletions
@@ -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 $ |