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
, sslMaxLineLength :: Int
, sslLogToConsole :: Bool
, sslDisableCertficateValidation :: Bool
, sslDisableCertificateValidation :: Bool
}
defaultSettingsWithPort :: PortNumber -> Settings
@ -17,5 +17,5 @@ defaultSettingsWithPort p = Settings
{ sslPort = p
, sslMaxLineLength = 10000
, 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
where params = ConnectionParams hostname port (Just tlsCfg) Nothing
port = sslPort cfg
tlsCfg = def { settingDisableCertificateValidation = sslDisableCertficateValidation cfg }
tlsCfg = def { settingDisableCertificateValidation = sslDisableCertificateValidation cfg }
connectPlain :: String -> Settings -> IO (BSStream, STARTTLS)
connectPlain hostname cfg = do
@ -52,4 +52,4 @@ connectPlain hostname cfg = do
return (connectionToStream c cfg, connectionSetSecure ctx c tlsCfg)
where params = ConnectionParams hostname port Nothing Nothing
port = sslPort cfg
tlsCfg = def { settingDisableCertificateValidation = sslDisableCertficateValidation cfg }
tlsCfg = def { settingDisableCertificateValidation = sslDisableCertificateValidation cfg }