diff options
Diffstat (limited to 'src/executable')
| -rw-r--r-- | src/executable/haskell/Service/MailService.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 $ |