@@ -435,7 +435,7 @@ main = hspec $ do
435435 let sortSpec = DefaultSortSpec $ mkSort (FieldName "age") Ascending
436436 let search = Search Nothing
437437 (Just IdentityFilter) (Just [sortSpec]) Nothing Nothing
438− False (From 0) (Size 10) Nothing
438+ False (From 0) (Size 10) SearchTypeQueryThenFetch Nothing
439439 result <- searchTweets search
440440 let myTweet = fmap (hitSource . head . hits . searchHits) result
441441 liftIO $