authenticate-ldap 0.0.1 → 0.0.1.1

raw patch · 2 files changed

+5/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Web/Authenticate/LDAP.hs +4/−4
• authenticate-ldap.cabal +1/−1

@@ -40,12 +40,12 @@    initBindResult <- try (ldapSimpleBind ldapOBJ initDN initPassword)                                                   :: IO (Either LDAPException ())    case initBindResult of-     Left _ -> do -- Successful initial bind+     Right _ -> do -- Successful initial bind        ldapOBJ' <- ldapInit ldapHost ldapPort'        userBindResult <- try (ldapSimpleBind ldapOBJ' (unpack user) pass)                                                   :: IO (Either LDAPException ())        case userBindResult of-         Left _ -> do -- Successful user bind+         Right _ -> do -- Successful user bind            entry <- ldapSearch ldapOBJ                                  searchDN                                 ldapScope@@ -53,5 +53,5 @@                                LDAPAllUserAttrs                                False            return $ Ok entry-         Right _ -> return WrongPassword-     Right _ -> return NoSuchUser    +         Left _ -> return WrongPassword+     Left _ -> return NoSuchUser    

@@ -1,5 +1,5 @@ name:            authenticate-ldap-version:         0.0.1 +version:         0.0.1.1  license:         BSD3 license-file:    LICENSE author:          Michael Litchard