@@ -119,7 +119,8 @@ resp <- deleteMapping testServer testIndex testMapping
120#+BEGIN_SRC haskell
120#+BEGIN_SRC haskell
122−-- don't forget the imports and derive generic setting for ghci at the beginning of the examples.
122+-- don't forget the imports and derive generic setting for ghci
123+-- at the beginning of the examples.
125data Location = Location { lat :: Double
126data Location = Location { lat :: Double
@@ -155,7 +156,13 @@ instance FromJSON Location
155resp <- indexDocument testServer testIndex testMapping exampleTweet (DocId "1")
156resp <- indexDocument testServer testIndex testMapping exampleTweet (DocId "1")
157-- print resp on success
158-- print resp on success
158−Response {responseStatus = Status {statusCode = 200, statusMessage = "OK"}, responseVersion = HTTP/1.1, responseHeaders = [("Content-Type","application/json; charset=UTF-8"),("Content-Length","75")], responseBody = "{\"_index\":\"twitter\",\"_type\":\"tweet\",\"_id\":\"1\",\"_version\":2,\"created\":false}", responseCookieJar = CJ {expose = []}, responseClose' = ResponseClose}
159+Response {responseStatus =
160+ Status {statusCode = 200, statusMessage = "OK"}
161+ , responseVersion = HTTP/1.1, responseHeaders =
162+ [("Content-Type","application/json; charset=UTF-8"),
163+ ("Content-Length","75")]
164+ , responseBody = "{\"_index\":\"twitter\",\"_type\":\"tweet\",\"_id\":\"1\",\"_version\":2,\"created\":false}"
165+ , responseCookieJar = CJ {expose = []}, responseClose' = ResponseClose}