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

AdminLimitExceeded is not really an error for the Search operation

Browse Source
This commit is contained in:
Matvey Aksenov 2015-03-28 10:32:34 +00:00
parent c9d034f952
commit 2013999e24
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Ldap/Client.hs
View File

@ -285,6 +285,7 @@ searchAsyncSTM l base opts flt attributes =
searchResult :: Response -> Either SearchError [SearchEntry] searchResult :: Response -> Either SearchError [SearchEntry]
searchResult (Type.SearchResultDone (Type.LdapResult code _ _ _) :| xs) searchResult (Type.SearchResultDone (Type.LdapResult code _ _ _) :| xs)
| Type.Success <- code = Right (mapMaybe g xs) | Type.Success <- code = Right (mapMaybe g xs)
| Type.AdminLimitExceeded <- code = Right (mapMaybe g xs)
| otherwise = Left (SearchErrorCode code) | otherwise = Left (SearchErrorCode code)
where where
g (Type.SearchResultEntry (Type.LdapDn (Type.LdapString dn)) g (Type.SearchResultEntry (Type.LdapDn (Type.LdapString dn))