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

Rename sslDisableCertficateValidation to sslDisableCertificateValidation

Browse Source
This commit is contained in:
Leza Morais Lutonda (Lemol-C) 2015-01-04 02:09:27 -05:00
parent 2dc5878f29
commit bc814b6345
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Network/HaskellNet/SSL.hs
View File

@ -9,7 +9,7 @@ data Settings = Settings
{ sslPort :: PortNumber { sslPort :: PortNumber
, sslMaxLineLength :: Int , sslMaxLineLength :: Int
, sslLogToConsole :: Bool , sslLogToConsole :: Bool
, sslDisableCertficateValidation :: Bool , sslDisableCertificateValidation :: Bool
} }
defaultSettingsWithPort :: PortNumber -> Settings defaultSettingsWithPort :: PortNumber -> Settings
@ -17,5 +17,5 @@ defaultSettingsWithPort p = Settings
{ sslPort = p { sslPort = p
, sslMaxLineLength = 10000 , sslMaxLineLength = 10000
, sslLogToConsole = False , sslLogToConsole = False
, sslDisableCertficateValidation = False , sslDisableCertificateValidation = False
} }

4
src/Network/HaskellNet/SSL/Internal.hs
View File

@ -43,7 +43,7 @@ connectSSL hostname cfg = do
return $ connectionToStream c cfg return $ connectionToStream c cfg
where params = ConnectionParams hostname port (Just tlsCfg) Nothing where params = ConnectionParams hostname port (Just tlsCfg) Nothing
port = sslPort cfg port = sslPort cfg
tlsCfg = def { settingDisableCertificateValidation = sslDisableCertficateValidation cfg } tlsCfg = def { settingDisableCertificateValidation = sslDisableCertificateValidation cfg }
connectPlain :: String -> Settings -> IO (BSStream, STARTTLS) connectPlain :: String -> Settings -> IO (BSStream, STARTTLS)
connectPlain hostname cfg = do connectPlain hostname cfg = do
@ -52,4 +52,4 @@ connectPlain hostname cfg = do
return (connectionToStream c cfg, connectionSetSecure ctx c tlsCfg) return (connectionToStream c cfg, connectionSetSecure ctx c tlsCfg)
where params = ConnectionParams hostname port Nothing Nothing where params = ConnectionParams hostname port Nothing Nothing
port = sslPort cfg port = sslPort cfg
tlsCfg = def { settingDisableCertificateValidation = sslDisableCertficateValidation cfg } tlsCfg = def { settingDisableCertificateValidation = sslDisableCertificateValidation cfg }