bb72983 · typeable/bloodhound

git.iko.soy/typeable/bloodhound

on master help sign in

Fix busted doctests for updateIndexAliases

bb72983Michael Xavier11 years ago

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

@@ -355,12 +355,17 @@ closeIndex = openOrCloseIndexes CloseIndex

355-- table. Operations are atomic. Explained in further detail at

356-- <https://www.elastic.co/guide/en/elasticsearch/reference/current/indices-aliases.html>

357--

358+-- >>> let src = IndexName "a-real-index"

358−-- >>> let aliasName = IndexName "twitter-alias"

359+-- >>> let aliasName = IndexName "an-alias"

359−-- >>> let iAlias = IndexAlias testIndex (IndexAliasName aliasName)

360+-- >>> let iAlias = IndexAlias src (IndexAliasName aliasName)

360-- >>> let aliasCreate = IndexAliasCreate Nothing Nothing

361-- >>> let aliasCreate = IndexAliasCreate Nothing Nothing

362+-- >>> respIsTwoHunna <$> runBH' (createIndex defaultIndexSettings src)

363+-- True

364+-- >>> runBH' $ indexExists src

365+-- True

361-- >>> respIsTwoHunna <$> runBH' (updateIndexAliases (AddAlias iAlias aliasCreate :| []))

366-- >>> respIsTwoHunna <$> runBH' (updateIndexAliases (AddAlias iAlias aliasCreate :| []))

362-- True

367-- True

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

368+-- >>> runBH' $ indexExists aliasName

364-- True

369-- True

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

370updateIndexAliases :: MonadBH m => NonEmpty IndexAliasAction -> m Reply

366updateIndexAliases actions = bindM2 post url (return body)

371updateIndexAliases actions = bindM2 post url (return body)