@@ -381,7 +381,7 @@ main = hspec $ do
381381 let sortSpec = DefaultSortSpec $ mkSort (FieldName "age") Ascending
382382 let search = Search Nothing
383383 (Just IdentityFilter) (Just [sortSpec]) Nothing Nothing
384− False (From 0) (Size 10)
384+ False (From 0) (Size 10) Nothing
385385 reply <- searchByIndex testIndex search
386386 let result = eitherDecode (responseBody reply) :: Either String (SearchResult Tweet)
387387 let myTweet = fmap (hitSource . head . hits . searchHits) result