smtp-mail 0.1.4.1 → 0.1.4.2

raw patch · 2 files changed

+8/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Network/Mail/SMTP.hs +7/−2
• smtp-mail.cabal +1/−1

@@ -121,9 +121,14 @@     do bsPutCrLf conn "DATA"        (code, _) <- parseResponse conn        unless (code == 354) $ fail "this server cannot accept any data."-       mapM_ sendLine $ BS.lines dat ++ [BS.pack "."]+       mapM_ sendLine $ split dat ++ [BS.pack "."]        parseResponse conn-    where sendLine = bsPutCrLf conn+    where +      sendLine = bsPutCrLf conn+      -- split on '\n' and remove any trailing '\r' from parts+      split = map stripCR . BS.lines+      stripCR s = if cr `BS.isSuffixOf` s then BS.init s else s+      cr = BS.pack "\r" sendCommand (SMTPC conn _) (AUTH LOGIN username password) =     do bsPutCrLf conn command        _ <- parseResponse conn

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                smtp-mail-version:             0.1.4.1+version:             0.1.4.2 synopsis:            Simple email sending via SMTP -- description:          homepage:            http://github.com/jhickner/smtp-mail