6faa544 · typeable/bloodhound

git.iko.soy/typeable/bloodhound

on master help sign in

Hopefully resolve type error in doctests

6faa544Michael Xavier11 years ago

src/Database/Bloodhound/Client.hs+4−3

@@ -69,9 +69,10 @@ import Control.Monad.IO.Class

69import Data.Aeson

70import Data.ByteString.Lazy.Builder

71import qualified Data.ByteString.Lazy.Char8 as L

72+import Data.Foldable (toList)

72import Data.Ix

73import Data.Ix

73import qualified Data.List as LS (filter)

74import qualified Data.List as LS (filter)

74−import qualified Data.List.NonEmpty as NE

75+import Data.List.NonEmpty (NonEmpty (..))

75import Data.Maybe (fromMaybe, isJust)

76import Data.Maybe (fromMaybe, isJust)

76import Data.Monoid

77import Data.Monoid

77import Data.Text (Text)

78import Data.Text (Text)

@@ -361,11 +362,11 @@ closeIndex = openOrCloseIndexes CloseIndex

361-- True

362-- True

362-- >> respIsTwoHunna <$> runBH' (indexExists aliasName)

363-- >> respIsTwoHunna <$> runBH' (indexExists aliasName)

363-- True

364-- True

364−updateIndexAliases :: MonadBH m => NE.NonEmpty IndexAliasAction -> m Reply

365+updateIndexAliases :: MonadBH m => NonEmpty IndexAliasAction -> m Reply

365updateIndexAliases actions = bindM2 post url (return body)

366updateIndexAliases actions = bindM2 post url (return body)

366 where url = joinPath ["_aliases"]

367 where url = joinPath ["_aliases"]

367 body = Just (encode bodyJSON)

368 body = Just (encode bodyJSON)

368− bodyJSON = object [ "actions" .= NE.toList actions]

369+ bodyJSON = object [ "actions" .= toList actions]

369

370

370-- | Get all aliases configured on the server.

371-- | Get all aliases configured on the server.

371getIndexAliases :: (MonadBH m, MonadThrow m)

372getIndexAliases :: (MonadBH m, MonadThrow m)