@@ -55,11 +55,19 @@ response <- createIndex testServer defaultIndexSettings testIndex
5555
5656*** Delete Index
5757
58+**** Code
59+
5860#+BEGIN_SRC haskell
5961
6062-- response :: Reply
6163response <- deleteIndex testServer testIndex
6264
65+#+END_SRC
66+
67+**** Example Response
68+
69+#+BEGIN_SRC haskell
70+
6371-- print response if it was a success
6472Response {responseStatus = Status {statusCode = 200, statusMessage = "OK"}
6573 , responseVersion = HTTP/1.1
@@ -88,6 +96,12 @@ Response {responseStatus = Status {statusCode = 404, statusMessage = "Not Found"
8896
8997resp <- refreshIndex testServer testIndex
9098
99+#+END_SRC
100+
101+**** Example Response
102+
103+#+BEGIN_SRC haskell
104+
91105-- print resp on success
92106Response {responseStatus = Status {statusCode = 200, statusMessage = "OK"}
93107 , responseVersion = HTTP/1.1
@@ -176,7 +190,12 @@ instance FromJSON Location
176190
177191resp <- indexDocument testServer testIndex testMapping exampleTweet (DocId "1")
178192
179−-- print resp on success
193+#+END_SRC
194+
195+**** Example Response
196+
197+#+BEGIN_SRC haskell
198+
180199Response {responseStatus =
181200 Status {statusCode = 200, statusMessage = "OK"}
182201 , responseVersion = HTTP/1.1, responseHeaders =