@@ -69,7 +69,7 @@ import qualified Data.ByteString.Lazy.Char8 as L
69import Data.Default.Class
69import Data.Default.Class
70import Data.Ix
70import Data.Ix
71import qualified Data.List as LS (filter)
71import qualified Data.List as LS (filter)
72−import Data.Maybe (fromMaybe)
72+import Data.Maybe (fromMaybe, isJust)
73import Data.Monoid
73import Data.Monoid
74import Data.Text (Text)
74import Data.Text (Text)
75import qualified Data.Text as T
75import qualified Data.Text as T
@@ -500,7 +500,7 @@ getDocument (IndexName indexName)
500-- | 'documentExists' enables you to check if a document exists. Returns 'Bool'
500-- | 'documentExists' enables you to check if a document exists. Returns 'Bool'
503−-- >>> exists <- runBH' $ documentExists testIndex testMapping (DocId "1")
503+-- >>> exists <- runBH' $ documentExists testIndex testMapping Nothing (DocId "1")
504documentExists :: MonadBH m => IndexName -> MappingName
504documentExists :: MonadBH m => IndexName -> MappingName
505 -> Maybe DocumentParent -> DocId -> m Bool
505 -> Maybe DocumentParent -> DocId -> m Bool
506documentExists (IndexName indexName) (MappingName mappingName)
506documentExists (IndexName indexName) (MappingName mappingName)
@@ -509,7 +509,7 @@ documentExists (IndexName indexName) (MappingName mappingName)
509 return exists
509 return exists
510 where url = addQuery params <$> joinPath [indexName, mappingName, docId]
510 where url = addQuery params <$> joinPath [indexName, mappingName, docId]
511 parentParam = fmap (\(DocumentParent (DocId p)) -> p) parent
511 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)]
514dispatchSearch :: MonadBH m => Text -> Search -> m Reply
514dispatchSearch :: MonadBH m => Text -> Search -> m Reply
515dispatchSearch url search = post url' (Just (encode search))
515dispatchSearch url search = post url' (Just (encode search))