HaskellNet 0.5 → 0.5.1
raw patch · 3 files changed
+14/−6 lines, 3 filesdep ~bytestringPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: bytestring
API changes (from Hackage documentation)
Files
- CHANGELOG +5/−0
- HaskellNet.cabal +5/−5
- src/Network/HaskellNet/SMTP.hs +4/−1
CHANGELOG view
@@ -1,3 +1,8 @@+0.5.1 (2016-05-05)+------------------++ - SMTP: Strip carriage returns from the on lines before sending+ 0.5 (2015-11-5) ---------------
HaskellNet.cabal view
@@ -1,20 +1,20 @@ Name: HaskellNet Synopsis: Client support for POP3, SMTP, and IMAP-Description: This package provides client support for the POP3,+Description: This package provides client support for the POP3, SMTP, and IMAP protocols. NOTE: this package will be split into smaller, protocol-specific packages in the future.-Version: 0.5+Version: 0.5.1 Copyright: (c) 2006 Jun Mukai Author: Jun Mukai-Maintainer: Jonathan Daugherty <cygnus@foobox.com>,+Maintainer: Jonathan Daugherty <cygnus@foobox.com>, Leza Morais Lutonda <lemol-c@outlook.com> License: BSD3-License-file: LICENSE+License-file: LICENSE Category: Network Homepage: https://github.com/jtdaugherty/HaskellNet Cabal-version: >=1.6-Build-type: Simple+Build-type: Simple Extra-Source-Files: CHANGELOG
src/Network/HaskellNet/SMTP.hs view
@@ -192,9 +192,12 @@ do bsPutCrLf conn $ BS.pack "DATA" (code, _) <- parseResponse conn unless (code == 354) $ fail "this server cannot accept any data."- mapM_ sendLine $ BS.lines dat ++ [BS.pack "."]+ mapM_ (sendLine . stripCR) $ BS.lines dat ++ [BS.pack "."] parseResponse conn where sendLine = bsPutCrLf conn+ stripCR bs = case BS.unsnoc bs of+ Just (line, '\r') -> line+ _ -> bs sendCommand (SMTPC conn _) (AUTH LOGIN username password) = do bsPutCrLf conn command (_, _) <- parseResponse conn