@@ -48,7 +48,7 @@ insertData = do
48queryTweet :: IO (Either String Tweet)
48queryTweet :: IO (Either String Tweet)
49queryTweet = do
49queryTweet = do
50 let queryFilter = BoolFilter (MustMatch (Term "user" "bitemyapp") False)
50 let queryFilter = BoolFilter (MustMatch (Term "user" "bitemyapp") False)
51− <||> IdentityFilter
51+ <&&> IdentityFilter
52 let search = Search Nothing (Just queryFilter)
52 let search = Search Nothing (Just queryFilter)
53 reply <- searchByIndex testServer "twitter" search
53 reply <- searchByIndex testServer "twitter" search
54 let result = eitherDecode (responseBody reply) :: Either String (SearchResult Tweet)
54 let result = eitherDecode (responseBody reply) :: Either String (SearchResult Tweet)