@@ -58,10 +58,22 @@ response <- createIndex testServer defaultIndexSettings testIndex
58response <- deleteIndex testServer testIndex
58response <- deleteIndex testServer testIndex
60-- print response if it was a success
60-- print response if it was a success
61−Response {responseStatus = Status {statusCode = 200, statusMessage = "OK"}, responseVersion = HTTP/1.1, responseHeaders = [("Content-Type","application/json; charset=UTF-8"),("Content-Length","21")], responseBody = "{\"acknowledged\":true}", responseCookieJar = CJ {expose = []}, responseClose' = ResponseClose}
61+Response {responseStatus = Status {statusCode = 200, statusMessage = "OK"}
62+ , responseVersion = HTTP/1.1
63+ , responseHeaders = [("Content-Type", "application/json; charset=UTF-8")
64+ , ("Content-Length", "21")]
65+ , responseBody = "{\"acknowledged\":true}"
66+ , responseCookieJar = CJ {expose = []}
67+ , responseClose' = ResponseClose}
63-- if the index to be deleted didn't exist anyway
69-- if the index to be deleted didn't exist anyway
64−Response {responseStatus = Status {statusCode = 404, statusMessage = "Not Found"}, responseVersion = HTTP/1.1, responseHeaders = [("Content-Type","application/json; charset=UTF-8"),("Content-Length","65")], responseBody = "{\"error\":\"IndexMissingException[[twitter] missing]\",\"status\":404}", responseCookieJar = CJ {expose = []}, responseClose' = ResponseClose}
70+Response {responseStatus = Status {statusCode = 404, statusMessage = "Not Found"}
71+ , responseVersion = HTTP/1.1
72+ , responseHeaders = [("Content-Type", "application/json; charset=UTF-8")
73+ , ("Content-Length","65")]
74+ , responseBody = "{\"error\":\"IndexMissingException[[twitter] missing]\",\"status\":404}"
75+ , responseCookieJar = CJ {expose = []}
76+ , responseClose' = ResponseClose}
@@ -74,7 +86,13 @@ Response {responseStatus = Status {statusCode = 404, statusMessage = "Not Found"
74resp <- refreshIndex testServer testIndex
86resp <- refreshIndex testServer testIndex
76-- print resp on success
88-- print resp on success
77−Response {responseStatus = Status {statusCode = 200, statusMessage = "OK"}, responseVersion = HTTP/1.1, responseHeaders = [("Content-Type","application/json; charset=UTF-8"),("Content-Length","50")], responseBody = "{\"_shards\":{\"total\":10,\"successful\":5,\"failed\":0}}", responseCookieJar = CJ {expose = []}, responseClose' = ResponseClose}
89+Response {responseStatus = Status {statusCode = 200, statusMessage = "OK"}
90+ , responseVersion = HTTP/1.1
91+ , responseHeaders = [("Content-Type", "application/json; charset=UTF-8")
92+ , ("Content-Length","50")]
93+ , responseBody = "{\"_shards\":{\"total\":10,\"successful\":5,\"failed\":0}}"
94+ , responseCookieJar = CJ {expose = []}
95+ , responseClose' = ResponseClose}