git.iko.soy/typeable/bloodhound
on master help sign in
derp
commit1e1faf38c376f8b88bde72c7aee5bd5b1c264909 authorAlex K <alex@eat-up.org> dateThu 5 Feb 2015, 08:02 (12 years ago) parentc9b44e7
2 files changed+5−5
compare with master
unifiedsplit
src/Database/Bloodhound/Types.hs+4−4 tests/tests.hs+1−1
src/Database/Bloodhound/Types.hs+4−4
@@ -1407,10 +1407,10 @@ instance ToJSON Filter where
14071407 rangeObject (RangeDoubleGte t) = ["gte" .= t]
14081408 rangeObject (RangeDoubleLt t) = ["lt" .= t]
14091409 rangeObject (RangeDoubleGt t) = ["gt" .= t]
1410− rangeObject (RangeDoubleGteLte l g) = ["lte" .= l, "gte" .= g]
1411− rangeObject (RangeDoubleGtLte l g) = ["lt" .= l, "gte" .= g]
1412− rangeObject (RangeDoubleGteLt l g) = ["lte" .= l, "gt" .= g]
1413− rangeObject (RangeDoubleGtLt l g) = ["lt" .= l, "gt" .= g]
1410+ rangeObject (RangeDoubleGteLte l g) = ["gte" .= l, "lte" .= g]
1411+ rangeObject (RangeDoubleGtLte l g) = ["gt" .= l, "lte" .= g]
1412+ rangeObject (RangeDoubleGteLt l g) = ["gte" .= l, "lt" .= g]
1413+ rangeObject (RangeDoubleGtLt l g) = ["gt" .= l, "lt" .= g]
14141414
14151415 toJSON (RegexpFilter (FieldName fieldName)
14161416 (Regexp regexText) flags (CacheName cacheName) cache (CacheKey cacheKey)) =
tests/tests.hs+1−1
@@ -444,7 +444,7 @@ main = hspec $ do
444444 it "returns document for range double filter" $ do
445445 _ <- insertData
446446 let filter = RangeFilterDouble (FieldName "age")
447− (RangeDoubleGtLt 100000.0 1000.0)
447+ (RangeDoubleGtLt 1000.0 100000.0)
448448 RangeExecutionIndex False
449449 let search = mkSearch Nothing (Just filter)
450450 myTweet <- searchTweet search