HaskellNet-SSL 0.1.0.0 → 0.1.1.0
raw patch · 2 files changed
+22/−2 lines, 2 filesdep ~base
Dependency ranges changed: base
Files
HaskellNet-SSL.cabal view
@@ -1,6 +1,6 @@ name: HaskellNet-SSL synopsis: Helpers to connect to SSL/TLS mail servers with HaskellNet-version: 0.1.0.0+version: 0.1.1.0 description: This package ties together the HaskellNet and connection packages to make it easy to open IMAP and SMTP connections over SSL.@@ -26,7 +26,7 @@ Network.HaskellNet.POP3.SSL Network.HaskellNet.SMTP.SSL other-modules: Network.HaskellNet.SSL- build-depends: base ==4.5.*,+ build-depends: base >= 4 && < 5, HaskellNet >= 0.3.1, connection >= 0.1.3, network >= 2.3,
src/Network/HaskellNet/SMTP/SSL.hs view
@@ -3,6 +3,10 @@ , connectSMTPSSLPort , connectSMTPSTARTTLS , connectSMTPSTARTTLSPort+ , doSMTPSSL+ , doSMTPSSLPort+ , doSMTPSTARTTLS+ , doSMTPSTARTTLSPort ) where import Network.Socket.Internal (PortNumber)@@ -14,6 +18,7 @@ import qualified Data.ByteString.Char8 as B +import Control.Exception import Control.Monad import Data.IORef @@ -64,3 +69,18 @@ prefixedGetLine prefix rawGetLine = readIORef prefix >>= deliverLine where deliverLine [] = rawGetLine deliverLine (l:ls) = writeIORef prefix ls >> return l++bracketSMTP :: IO SMTPConnection -> (SMTPConnection -> IO a) -> IO a+bracketSMTP = flip bracket closeSMTP++doSMTPSSL :: String -> (SMTPConnection -> IO a) -> IO a+doSMTPSSL host = bracketSMTP $ connectSMTPSSL host++doSMTPSSLPort :: String -> PortNumber -> (SMTPConnection -> IO a) -> IO a+doSMTPSSLPort host port = bracketSMTP $ connectSMTPSSLPort host port++doSMTPSTARTTLS :: String -> (SMTPConnection -> IO a) -> IO a+doSMTPSTARTTLS host = bracketSMTP $ connectSMTPSTARTTLS host++doSMTPSTARTTLSPort :: String -> PortNumber -> (SMTPConnection -> IO a) -> IO a+doSMTPSTARTTLSPort host port = bracketSMTP $ connectSMTPSTARTTLSPort host port