From 5f2fa1ad93231a45bb92d7afda1c3bcf2fd4753d Mon Sep 17 00:00:00 2001 From: Chris Allen Date: Sun, 13 Apr 2014 20:23:03 -0500 Subject: [PATCH] formatting --- README.org | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) diff --git a/README.org b/README.org index 7b8b495..fce227a 100644 --- a/README.org +++ b/README.org @@ -58,10 +58,22 @@ response <- createIndex testServer defaultIndexSettings testIndex response <- deleteIndex testServer testIndex -- print response if it was a success -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} +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} -- if the index to be deleted didn't exist anyway -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} +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} #+END_SRC @@ -74,7 +86,13 @@ Response {responseStatus = Status {statusCode = 404, statusMessage = "Not Found" resp <- refreshIndex testServer testIndex -- print resp on success -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} +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} #+END_SRC