@@ -94,8 +94,8 @@ let withBH' = withBH defaultManagerSettings testServer
94let defaultIndexSettings = IndexSettings (ShardCount 3) (ReplicaCount 2)
94let defaultIndexSettings = IndexSettings (ShardCount 3) (ReplicaCount 2)
96-- createIndex returns MonadBH m => m Reply. You can use withBH for
96-- createIndex returns MonadBH m => m Reply. You can use withBH for
97− one-off commands or you can use runBH to group together commands
97+-- one-off commands or you can use runBH to group together commands
98− and to pass in your own HTTP manager for pipelining.
98+-- and to pass in your own HTTP manager for pipelining.
100-- response :: Reply, Reply is a synonym for Network.HTTP.Conduit.Response
100-- response :: Reply, Reply is a synonym for Network.HTTP.Conduit.Response
101response <- withBH' $ createIndex defaultIndexSettings testIndex
101response <- withBH' $ createIndex defaultIndexSettings testIndex