diff options
author | Joris | 2017-03-26 21:11:02 +0200 |
---|---|---|
committer | Joris | 2017-03-26 21:11:04 +0200 |
commit | 778040bf9f3f60ec50b1b437f93ab123854917f2 (patch) | |
tree | 145d1d8eaa7b63310130b9c3f2cbf7f39ec9f8d7 /src/server/SendMail.hs | |
parent | 1e47a7754ca38bd1a6c74765d8378caf68ce4619 (diff) | |
download | budget-778040bf9f3f60ec50b1b437f93ab123854917f2.tar.gz budget-778040bf9f3f60ec50b1b437f93ab123854917f2.tar.bz2 budget-778040bf9f3f60ec50b1b437f93ab123854917f2.zip |
Copy mime-mail locally
The path is wrong, it is configurable with --ghc-options but I can't get
it right for now with stack.
Diffstat (limited to 'src/server/SendMail.hs')
-rw-r--r-- | src/server/SendMail.hs | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/src/server/SendMail.hs b/src/server/SendMail.hs index e434b38..f7ba3fd 100644 --- a/src/server/SendMail.hs +++ b/src/server/SendMail.hs @@ -4,25 +4,24 @@ module SendMail ( sendMail ) where +import Control.Arrow (left) +import Control.Exception (SomeException, try) +import Data.Either (isLeft) + import Data.Text (Text) +import Data.Text.Lazy.Builder (toLazyText, fromText) import qualified Data.Text as T -import Data.Either (isLeft) import qualified Data.Text.Lazy as LT -import Data.Text.Lazy.Builder (toLazyText, fromText) - -import Control.Exception (SomeException, try) -import Control.Arrow (left) - -import qualified Network.Mail.Mime as M +import qualified MimeMail as M -import Model.Mail +import Model.Mail (Mail(Mail)) sendMail :: Mail -> IO (Either Text ()) sendMail mail = do result <- left (T.pack . show) <$> (try (M.renderSendMail . getMimeMail $ mail) :: IO (Either SomeException ())) if isLeft result - then putStrLn ("Error sending the following email:" ++ (show mail)) - else return () + then putStrLn ("Error sending the following email:" ++ (show mail) ++ "\n" ++ (show result)) + else putStrLn "OK" return result getMimeMail :: Mail -> M.Mail |