diff --git a/Web/Authenticate/LDAP.hs b/Web/Authenticate/LDAP.hs
--- a/Web/Authenticate/LDAP.hs
+++ b/Web/Authenticate/LDAP.hs
@@ -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    
diff --git a/authenticate-ldap.cabal b/authenticate-ldap.cabal
--- a/authenticate-ldap.cabal
+++ b/authenticate-ldap.cabal
@@ -1,5 +1,5 @@
 name:            authenticate-ldap
-version:         0.0.1 
+version:         0.0.1.1 
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Litchard