git.iko.soy/typeable/bloodhound
on master help sign in
derp
1e1faf3Alex K
src/Database/Bloodhound/Types.hs+4−4
compare with master
unifiedsplit
@@ -1407,10 +1407,10 @@ instance ToJSON Filter where
1407 rangeObject (RangeDoubleGte t) = ["gte" .= t]
1407 rangeObject (RangeDoubleGte t) = ["gte" .= t]
1408 rangeObject (RangeDoubleLt t) = ["lt" .= t]
1408 rangeObject (RangeDoubleLt t) = ["lt" .= t]
1409 rangeObject (RangeDoubleGt t) = ["gt" .= t]
1409 rangeObject (RangeDoubleGt t) = ["gt" .= t]
1410− rangeObject (RangeDoubleGteLte l g) = ["lte" .= l, "gte" .= g]
1410+ rangeObject (RangeDoubleGteLte l g) = ["gte" .= l, "lte" .= g]
1411− rangeObject (RangeDoubleGtLte l g) = ["lt" .= l, "gte" .= g]
1411+ rangeObject (RangeDoubleGtLte l g) = ["gt" .= l, "lte" .= g]
1412− rangeObject (RangeDoubleGteLt l g) = ["lte" .= l, "gt" .= g]
1412+ rangeObject (RangeDoubleGteLt l g) = ["gte" .= l, "lt" .= g]
1413− rangeObject (RangeDoubleGtLt l g) = ["lt" .= l, "gt" .= g]
1413+ rangeObject (RangeDoubleGtLt l g) = ["gt" .= l, "lt" .= g]
1414
1414
1415 toJSON (RegexpFilter (FieldName fieldName)
1415 toJSON (RegexpFilter (FieldName fieldName)
1416 (Regexp regexText) flags (CacheName cacheName) cache (CacheKey cacheKey)) =
1416 (Regexp regexText) flags (CacheName cacheName) cache (CacheKey cacheKey)) =
tests/tests.hs+1−1
@@ -444,7 +444,7 @@ main = hspec $ do
444 it "returns document for range double filter" $ do
444 it "returns document for range double filter" $ do
445 _ <- insertData
445 _ <- insertData
446 let filter = RangeFilterDouble (FieldName "age")
446 let filter = RangeFilterDouble (FieldName "age")
447− (RangeDoubleGtLt 100000.0 1000.0)
447+ (RangeDoubleGtLt 1000.0 100000.0)
448 RangeExecutionIndex False
448 RangeExecutionIndex False
449 let search = mkSearch Nothing (Just filter)
449 let search = mkSearch Nothing (Just filter)
450 myTweet <- searchTweet search
450 myTweet <- searchTweet search