@@ -91,7 +91,7 @@ import Database.Bloodhound.Types
91-- >>> let runBH' = withBH defaultManagerSettings testServer
91-- >>> let runBH' = withBH defaultManagerSettings testServer
92-- >>> let testIndex = IndexName "twitter"
92-- >>> let testIndex = IndexName "twitter"
93-- >>> let testMapping = MappingName "tweet"
93-- >>> let testMapping = MappingName "tweet"
94−-- >>> let defaultIndexSettings = IndexSettings (ShardCount 3) (ReplicaCount 2)
94+-- >>> let defaultIndexSettings = IndexSettings (ShardCount 1) (ReplicaCount 0)
95-- >>> data TweetMapping = TweetMapping deriving (Eq, Show)
95-- >>> data TweetMapping = TweetMapping deriving (Eq, Show)
96-- >>> _ <- runBH' $ deleteIndex testIndex >> deleteMapping testIndex testMapping
96-- >>> _ <- runBH' $ deleteIndex testIndex >> deleteMapping testIndex testMapping
97-- >>> import GHC.Generics
97-- >>> import GHC.Generics