From bc814b634524928c60023d4bc2bafdf53c1176a7 Mon Sep 17 00:00:00 2001
From: "Leza Morais Lutonda (Lemol-C)" <lemol-c@hotmail.com>
Date: Sun, 4 Jan 2015 02:09:27 -0500
Subject: [PATCH] Rename sslDisableCertficateValidation to
 sslDisableCertificateValidation

---
 src/Network/HaskellNet/SSL.hs          | 4 ++--
 src/Network/HaskellNet/SSL/Internal.hs | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Network/HaskellNet/SSL.hs b/src/Network/HaskellNet/SSL.hs
index b6ffe9f..8b51aa4 100644
--- a/src/Network/HaskellNet/SSL.hs
+++ b/src/Network/HaskellNet/SSL.hs
@@ -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
   }
diff --git a/src/Network/HaskellNet/SSL/Internal.hs b/src/Network/HaskellNet/SSL/Internal.hs
index c330722..ffd126d 100644
--- a/src/Network/HaskellNet/SSL/Internal.hs
+++ b/src/Network/HaskellNet/SSL/Internal.hs
@@ -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 }