From c981e1e82e94084bccbad194780434a5864e8f6d Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Sat, 7 Jan 2017 17:43:43 +0300 Subject: ldapSimpleExternalSaslBind -> ldapTrivialExternalSaslBind --- src/Main.hs | 4 ++-- 1 file 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 -- cgit v1.2.3