smtps-gmail 1.3.1 → 1.3.2
raw patch · 2 files changed
+3/−3 lines, 2 files
Files
- Network/Mail/Client/Gmail.hs +2/−2
- smtps-gmail.cabal +1/−1
Network/Mail/Client/Gmail.hs view
@@ -84,14 +84,14 @@ let handle = connectTo "smtp.gmail.com" $ PortNumber 587 bracket handle hClose $ \ hdl -> do recvSMTP hdl micros "220"- sendSMTP hdl "EHLO"+ sendSMTP hdl "EHLO localhost" recvSMTP hdl micros "250" sendSMTP hdl "STARTTLS" recvSMTP hdl micros "220" let context = contextNew hdl params bracket context cClose $ \ ctx -> do handshake ctx- sendSMTPS ctx "EHLO"+ sendSMTPS ctx "EHLO localhost" recvSMTPS ctx micros "250" sendSMTPS ctx "AUTH LOGIN" recvSMTPS ctx micros "334"
smtps-gmail.cabal view
@@ -1,5 +1,5 @@ Name: smtps-gmail-Version: 1.3.1+Version: 1.3.2 License: BSD3 License-File: LICENSE Copyright: Copyright (c) 2014-2015, Enzo Haussecker. All rights reserved.