@@ -225,7 +225,7 @@ instance FromJSON Location
225225-- λ> encode $ Location 10.0 10.0
226226-- "{\"lat\":10,\"lon\":10}"
227227
228−resp <- withBH' $ indexDocument testIndex testMapping exampleTweet (DocId "1")
228+resp <- withBH' $ indexDocument testIndex testMapping defaultIndexDocumentSettings exampleTweet (DocId "1")
229229
230230```
231231
@@ -368,7 +368,7 @@ let encodedOperations = encodeBulkOperations stream
368368
369369-- to insert into a particular server
370370-- bulk :: V.Vector BulkOperation -> IO Reply
371−_ <- withBH' $ bulk stream
371+_ <- withBH' $ bulk streamp
372372
373373```
374374