diff options
| author | Joris | 2019-09-10 09:33:25 +0200 |
|---|---|---|
| committer | Joris | 2019-09-10 09:33:25 +0200 |
| commit | 650a23ed763d8627af14ed154fdb9097a80875c5 (patch) | |
| tree | cb9804f2995e5a2e5d61974cd35976928fa43ebd /src/executable/haskell/Service | |
| parent | 69989fff0c5d18c069120081eb5cfcc6a9bf8c29 (diff) | |
Override sendmail path
Diffstat (limited to 'src/executable/haskell/Service')
| -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 $ |