@@ -225,7 +225,7 @@ instance FromJSON Location
225-- λ> encode $ Location 10.0 10.0
225-- λ> encode $ Location 10.0 10.0
226-- "{\"lat\":10,\"lon\":10}"
226-- "{\"lat\":10,\"lon\":10}"
228−resp <- withBH' $ indexDocument testIndex testMapping exampleTweet (DocId "1")
228+resp <- withBH' $ indexDocument testIndex testMapping defaultIndexDocumentSettings exampleTweet (DocId "1")
@@ -368,7 +368,7 @@ let encodedOperations = encodeBulkOperations stream
369-- to insert into a particular server
369-- to insert into a particular server
370-- bulk :: V.Vector BulkOperation -> IO Reply
370-- bulk :: V.Vector BulkOperation -> IO Reply
371−_ <- withBH' $ bulk stream
371+_ <- withBH' $ bulk streamp