From 2013999e249eb02773f5549cc8e6537471129547 Mon Sep 17 00:00:00 2001
From: Matvey Aksenov <matvey.aksenov@gmail.com>
Date: Sat, 28 Mar 2015 10:32:34 +0000
Subject: [PATCH] AdminLimitExceeded is not really an error for the Search
 operation

---
 src/Ldap/Client.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Ldap/Client.hs b/src/Ldap/Client.hs
index 493704a..1f4b4b5 100644
--- a/src/Ldap/Client.hs
+++ b/src/Ldap/Client.hs
@@ -285,6 +285,7 @@ searchAsyncSTM l base opts flt attributes =
 searchResult :: Response -> Either SearchError [SearchEntry]
 searchResult (Type.SearchResultDone (Type.LdapResult code _ _ _) :| xs)
   | Type.Success <- code = Right (mapMaybe g xs)
+  | Type.AdminLimitExceeded <- code = Right (mapMaybe g xs)
   | otherwise = Left (SearchErrorCode code)
  where
   g (Type.SearchResultEntry (Type.LdapDn (Type.LdapString dn))