mime-mail 0.4.5 → 0.4.5.1

raw patch · 2 files changed

+3/−2 lines, 2 files

Files

• Network/Mail/Mime.hs +2/−1
• mime-mail.cabal +1/−1

@@ -42,6 +42,7 @@ import System.FilePath (takeFileName) import qualified Data.ByteString.Base64 as Base64 import Control.Monad ((<=<), foldM)+import Control.Exception (throwIO, ErrorCall (ErrorCall)) import Data.List (intersperse) import qualified Data.Text.Lazy as LT import qualified Data.Text.Lazy.Encoding as LT@@ -292,7 +293,7 @@     exitCode <- waitForProcess phandle     case exitCode of         ExitSuccess -> return ()-        _ -> error $ "sendmail exited with error code " ++ show exitCode+        _ -> throwIO $ ErrorCall ("sendmail exited with error code " ++ show exitCode)  -- | Render an email message and send via the specified sendmail -- executable with specified options.

@@ -1,5 +1,5 @@ Name:                mime-mail-Version:             0.4.5+Version:             0.4.5.1 Synopsis:            Compose MIME email messages. Description:         This package provides some high-level datatypes for declaring MIME email messages, functions for automatically composing these into bytestrings, and the ability to send bytestrings via the sendmail executable. You can also use any other library you wish to send via different methods, eg directly to SMTP. Homepage:            http://github.com/snoyberg/mime-mail