git.iko.soy/typeable/bloodhound
on master help sign in
more semantically accurate
commitef50fc289546bf8ac9ecdc3f072df0f6e85494f9 authorChris Allen <cma@bitemyapp.com> dateThu 10 Apr 2014, 01:48 (13 years ago) parent0523803
1 file changed+1−1
compare with master
unifiedsplit
tests/tests.hs+1−1
tests/tests.hs+1−1
@@ -48,7 +48,7 @@ insertData = do
4848queryTweet :: IO (Either String Tweet)
4949queryTweet = do
5050 let queryFilter = BoolFilter (MustMatch (Term "user" "bitemyapp") False)
51− <||> IdentityFilter
51+ <&&> IdentityFilter
5252 let search = Search Nothing (Just queryFilter)
5353 reply <- searchByIndex testServer "twitter" search
5454 let result = eitherDecode (responseBody reply) :: Either String (SearchResult Tweet)