diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2017-01-07 17:43:43 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2017-01-07 17:43:43 +0300 |
| commit | c981e1e82e94084bccbad194780434a5864e8f6d (patch) | |
| tree | d9faaeb7a5d02596d0522e6f28b16a153c011a18 | |
| parent | fe37993045ea8c6d3e7ec045fdaf01a710c59c29 (diff) | |
| download | ldapply-c981e1e82e94084bccbad194780434a5864e8f6d.tar.gz | |
ldapSimpleExternalSaslBind -> ldapTrivialExternalSaslBind
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 3f13b33..c989956 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -8,7 +8,7 @@ import Data.Char (toLower) import Data.HashMap.Strict (fromListWith, toList) import Data.Maybe (fromJust) import Data.Version (showVersion) -import LDAP.Init (ldapSimpleExternalSaslBind, ldapInitialize) +import LDAP.Init (ldapTrivialExternalSaslBind, ldapInitialize) import LDAP.Modify (LDAPMod(..), LDAPModOp(..), ldapAdd, ldapDelete, ldapModify, list2ldm) import LDAP.Search (LDAPScope(LdapScopeBase), SearchAttributes(LDAPAllUserAttrs), LDAPEntry(..), ldapSearch) import LDAP.Types (LDAP) @@ -53,7 +53,7 @@ main = do ldifs = O.getAllArgs args $ O.argument "LDIF" ldapUrl = fromJust $ O.getArg args $ O.shortOption 'H' ldap <- ldapInitialize ldapUrl - ldapSimpleExternalSaslBind ldap + ldapTrivialExternalSaslBind ldap mapM_ (processLDIF ldap) ldifs |