haskell/haskellnet-ssl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Increase sslMaxLineLength for the IMAP example

Browse Source
This commit is contained in:
Daniel P. Wright 2014-01-30 07:49:27 +09:00
parent e703d1c36a
commit 31526e9b79
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/gmail.hs
View File

@ -6,6 +6,8 @@ import Network.HaskellNet.IMAP.SSL
import Network.HaskellNet.SMTP import Network.HaskellNet.SMTP
import Network.HaskellNet.SMTP.SSL import Network.HaskellNet.SMTP.SSL
import Network.HaskellNet.SSL
import Network.HaskellNet.Auth (AuthType(PLAIN)) import Network.HaskellNet.Auth (AuthType(PLAIN))
import qualified Data.ByteString.Char8 as B import qualified Data.ByteString.Char8 as B
@ -15,7 +17,7 @@ password = "password"
recipient = "someone@somewhere.com" recipient = "someone@somewhere.com"
imapTest = do imapTest = do
c <- connectIMAPSSL "imap.gmail.com" c <- connectIMAPSSLWithSettings "imap.gmail.com" cfg
login c username password login c username password
mboxes <- list c mboxes <- list c
mapM_ print mboxes mapM_ print mboxes
@ -25,6 +27,7 @@ imapTest = do
msgContent <- fetch c firstMsg msgContent <- fetch c firstMsg
B.putStrLn msgContent B.putStrLn msgContent
logout c logout c
where cfg = defaultSettingsIMAPSSL { sslMaxLineLength = 100000 }
smtpTest = doSMTPSTARTTLS "smtp.gmail.com" $ \c -> do smtpTest = doSMTPSTARTTLS "smtp.gmail.com" $ \c -> do
sendCommand c $ AUTH PLAIN username password sendCommand c $ AUTH PLAIN username password