packages feed

HaskellNet-SSL 0.2.5.2 → 0.3.0.0

raw patch · 6 files changed

+19/−6 lines, 6 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Network.HaskellNet.IMAP.SSL: Settings :: PortNumber -> Int -> Bool -> Bool -> Settings
+ Network.HaskellNet.IMAP.SSL: data Settings
+ Network.HaskellNet.IMAP.SSL: sslDisableCertificateValidation :: Settings -> Bool
+ Network.HaskellNet.IMAP.SSL: sslLogToConsole :: Settings -> Bool
+ Network.HaskellNet.IMAP.SSL: sslMaxLineLength :: Settings -> Int
+ Network.HaskellNet.IMAP.SSL: sslPort :: Settings -> PortNumber
+ Network.HaskellNet.POP3.SSL: Settings :: PortNumber -> Int -> Bool -> Bool -> Settings
+ Network.HaskellNet.POP3.SSL: data Settings
+ Network.HaskellNet.POP3.SSL: sslDisableCertificateValidation :: Settings -> Bool
+ Network.HaskellNet.POP3.SSL: sslLogToConsole :: Settings -> Bool
+ Network.HaskellNet.POP3.SSL: sslMaxLineLength :: Settings -> Int
+ Network.HaskellNet.POP3.SSL: sslPort :: Settings -> PortNumber
+ Network.HaskellNet.SMTP.SSL: Settings :: PortNumber -> Int -> Bool -> Bool -> Settings
+ Network.HaskellNet.SMTP.SSL: data Settings
+ Network.HaskellNet.SMTP.SSL: sslDisableCertificateValidation :: Settings -> Bool
+ Network.HaskellNet.SMTP.SSL: sslLogToConsole :: Settings -> Bool
+ Network.HaskellNet.SMTP.SSL: sslMaxLineLength :: Settings -> Int
+ Network.HaskellNet.SMTP.SSL: sslPort :: Settings -> PortNumber
+ Network.HaskellNet.SSL: sslDisableCertificateValidation :: Settings -> Bool
- Network.HaskellNet.SSL: Settings :: PortNumber -> Int -> Bool -> Settings
+ Network.HaskellNet.SSL: Settings :: PortNumber -> Int -> Bool -> Bool -> Settings

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.2.5.2+version:             0.3.0.0 description:         This package ties together the HaskellNet and connection                      packages to make it easy to open IMAP and SMTP connections                      over SSL.
src/Network/HaskellNet/IMAP/SSL.hs view
@@ -3,7 +3,10 @@       connectIMAPSSL     , connectIMAPSSLWithSettings       -- * Settings+    , Settings(..)     , defaultSettingsIMAPSSL+      -- * Network.HaskellNet.IMAP re-exports+    , module Network.HaskellNet.IMAP     ) where  import Network.HaskellNet.IMAP.Connection
src/Network/HaskellNet/POP3/SSL.hs view
@@ -3,7 +3,10 @@       connectPop3SSL     , connectPop3SSLWithSettings       -- * Settings+    , Settings(..)     , defaultSettingsPop3SSL+      -- * Network.HaskellNet.POP3 re-exports+    , module Network.HaskellNet.POP3     ) where  import Network.HaskellNet.POP3.Connection
src/Network/HaskellNet/SMTP/SSL.hs view
@@ -10,8 +10,11 @@     , doSMTPSTARTTLS     , doSMTPSTARTTLSWithSettings       -- * Settings+    , Settings(..)     , defaultSettingsSMTPSSL     , defaultSettingsSMTPSTARTTLS+      -- * Network.HaskellNet.SMTP re-exports+    , module Network.HaskellNet.SMTP     ) where  import Network.HaskellNet.SMTP
src/Network/HaskellNet/SSL.hs view
@@ -6,9 +6,10 @@ import Network.Socket.Internal (PortNumber)  data Settings = Settings-              { sslPort          :: PortNumber-              , sslMaxLineLength :: Int-              , sslLogToConsole  :: Bool+              { sslPort                        :: PortNumber+              , sslMaxLineLength               :: Int+              , sslLogToConsole                :: Bool+              , sslDisableCertificateValidation :: Bool               }  defaultSettingsWithPort :: PortNumber -> Settings@@ -16,4 +17,5 @@   { sslPort = p   , sslMaxLineLength = 10000   , sslLogToConsole = False+  , sslDisableCertificateValidation = False   }
src/Network/HaskellNet/SSL/Internal.hs view
@@ -41,13 +41,15 @@ connectSSL hostname cfg = do     c <- initConnectionContext >>= flip connectTo params     return $ connectionToStream c cfg-  where params = ConnectionParams hostname port (Just def) Nothing+  where params = ConnectionParams hostname port (Just tlsCfg) Nothing         port = sslPort cfg+        tlsCfg = def { settingDisableCertificateValidation = sslDisableCertificateValidation cfg }  connectPlain :: String -> Settings -> IO (BSStream, STARTTLS) connectPlain hostname cfg = do     ctx <- initConnectionContext     c <- connectTo ctx params-    return (connectionToStream c cfg, connectionSetSecure ctx c def)+    return (connectionToStream c cfg, connectionSetSecure ctx c tlsCfg)   where params = ConnectionParams hostname port Nothing Nothing         port = sslPort cfg+        tlsCfg = def { settingDisableCertificateValidation = sslDisableCertificateValidation cfg }