@@ -69,7 +69,7 @@ import qualified Data.ByteString.Lazy.Char8 as L
6969import Data.Default.Class
7070import Data.Ix
7171import qualified Data.List as LS (filter)
72−import Data.Maybe (fromMaybe)
72+import Data.Maybe (fromMaybe, isJust)
7373import Data.Monoid
7474import Data.Text (Text)
7575import qualified Data.Text as T
@@ -500,7 +500,7 @@ getDocument (IndexName indexName)
500500-- | 'documentExists' enables you to check if a document exists. Returns 'Bool'
501501-- in IO
502502--
503−-- >>> exists <- runBH' $ documentExists testIndex testMapping (DocId "1")
503+-- >>> exists <- runBH' $ documentExists testIndex testMapping Nothing (DocId "1")
504504documentExists :: MonadBH m => IndexName -> MappingName
505505 -> Maybe DocumentParent -> DocId -> m Bool
506506documentExists (IndexName indexName) (MappingName mappingName)
@@ -509,7 +509,7 @@ documentExists (IndexName indexName) (MappingName mappingName)
509509 return exists
510510 where url = addQuery params <$> joinPath [indexName, mappingName, docId]
511511 parentParam = fmap (\(DocumentParent (DocId p)) -> p) parent
512− params = LS.filter (\(_, v) -> v /= Nothing) [("parent", parentParam)]
512+ params = LS.filter (\(_, v) -> isJust v) [("parent", parentParam)]
513513
514514dispatchSearch :: MonadBH m => Text -> Search -> m Reply
515515dispatchSearch url search = post url' (Just (encode search))