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

Cosmetics.

Browse Source
This commit is contained in:
Matvey Aksenov 2016-12-27 15:56:30 +00:00
parent 889c66a046
commit e9e9f35276
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Ldap/Client.hs
View File

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

8
src/Ldap/Client/Internal.hs
View File

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