Cosmetics.

src/Ldap/Client.hs

@@ -173,7 +173,7 @@ with host port f = do
             , Conn.settingDisableSession = False
             , Conn.settingUseServerName = False
             }
-          SecureWithTLSSettings _ t -> Just t
+          SecureWithTLSSettings _ settings -> Just settings
           Insecure _ -> Just Conn.TLSSettingsSimple
             { Conn.settingDisableCertificateValidation = True
             , Conn.settingDisableSession = False

src/Ldap/Client/Internal.hs

@@ -43,11 +43,11 @@ import qualified Ldap.Asn1.Type as Type
 
 -- | LDAP host.
 data Host =
-    Plain String    -- ^ Plain LDAP. Do not use!
+    Plain String    -- ^ Plain LDAP.
   | Insecure String -- ^ LDAP over TLS without the certificate validity check.
-                    --   Only use for testing!
-  | Secure String   -- ^ LDAP over TLS. Use!
-    | SecureWithTLSSettings String TLSSettings -- ^ LDAP over TLS with the ability to specify detailed TLS settings
+  | Secure String   -- ^ LDAP over TLS.
+  | SecureWithTLSSettings String TLSSettings
+                    -- ^ LDAP over TLS with the ability to specify detailed TLS settings.
     deriving (Show)
 
 -- | A token. All functions that interact with the Directory require one.