From dd0a2281e85309dec38e243cf4b241bc9f3151cb Mon Sep 17 00:00:00 2001 From: Chris Allen Date: Sun, 13 Apr 2014 20:19:18 -0500 Subject: [PATCH] formatting --- README.org | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/README.org b/README.org index 437e0de..7e49299 100644 --- a/README.org +++ b/README.org @@ -119,7 +119,8 @@ resp <- deleteMapping testServer testIndex testMapping #+BEGIN_SRC haskell --- don't forget the imports and derive generic setting for ghci at the beginning of the examples. +-- don't forget the imports and derive generic setting for ghci +-- at the beginning of the examples. :{ data Location = Location { lat :: Double @@ -155,7 +156,13 @@ instance FromJSON Location resp <- indexDocument testServer testIndex testMapping exampleTweet (DocId "1") -- 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","75")], responseBody = "{\"_index\":\"twitter\",\"_type\":\"tweet\",\"_id\":\"1\",\"_version\":2,\"created\":false}", 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","75")] + , responseBody = "{\"_index\":\"twitter\",\"_type\":\"tweet\",\"_id\":\"1\",\"_version\":2,\"created\":false}" + , responseCookieJar = CJ {expose = []}, responseClose' = ResponseClose} #+END_SRC