Merge pull request #142 from 23Skidoo/patch-1

Comment out comments in the example properly.
This commit is contained in:
Chris Allen 2016-09-29 11:55:13 -05:00 committed by GitHub
commit 6fbdfb7aaf

View File

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