@@ -261,7 +261,15 @@ reply <- searchByIndex testServer testIndex search
261let result = eitherDecode (responseBody reply) :: Either String (SearchResult Tweet)
261let result = eitherDecode (responseBody reply) :: Either String (SearchResult Tweet)
263λ> fmap (hits . searchHits) result
263λ> fmap (hits . searchHits) result
264−Right [Hit {hitIndex = IndexName "twitter", hitType = MappingName "tweet", hitDocId = DocId "1", hitScore = 0.30685282, hitSource = Tweet {user = "bitemyapp", postDate = 2009-06-18 00:00:10 UTC, message = "Use haskell!", age = 10000, location = Location {lat = 40.12, lon = -71.34}}}]
264+Right [Hit {hitIndex = IndexName "twitter"
265+ , hitType = MappingName "tweet"
266+ , hitDocId = DocId "1"
267+ , hitScore = 0.30685282
268+ , hitSource = Tweet {user = "bitemyapp"
269+ , postDate = 2009-06-18 00:00:10 UTC
270+ , message = "Use haskell!"
272+ , location = Location {lat = 40.12, lon = -71.34}}}]