typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2025-01-07 15:22:21 +03:00
Code Issues Projects Releases Wiki Activity

derp

Browse Source
This commit is contained in:
Alex K 2015-02-05 08:02:25 -08:00
parent c9b44e7491
commit 1e1faf38c3
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Database/Bloodhound/Types.hs
View File

@ -1407,10 +1407,10 @@ instance ToJSON Filter where
rangeObject (RangeDoubleGte t) = ["gte" .= t]
rangeObject (RangeDoubleLt t) = ["lt" .= t]
rangeObject (RangeDoubleGt t) = ["gt" .= t]
rangeObject (RangeDoubleGteLte l g) = ["lte" .= l, "gte" .= g]
rangeObject (RangeDoubleGtLte l g) = ["lt" .= l, "gte" .= g]
rangeObject (RangeDoubleGteLt l g) = ["lte" .= l, "gt" .= g]
rangeObject (RangeDoubleGtLt l g) = ["lt" .= l, "gt" .= g]
rangeObject (RangeDoubleGteLte l g) = ["gte" .= l, "lte" .= g]
rangeObject (RangeDoubleGtLte l g) = ["gt" .= l, "lte" .= g]
rangeObject (RangeDoubleGteLt l g) = ["gte" .= l, "lt" .= g]
rangeObject (RangeDoubleGtLt l g) = ["gt" .= l, "lt" .= g]
toJSON (RegexpFilter (FieldName fieldName)
(Regexp regexText) flags (CacheName cacheName) cache (CacheKey cacheKey)) =

2
tests/tests.hs
View File

@ -444,7 +444,7 @@ main = hspec $ do
it "returns document for range double filter" $ do
_ <- insertData
let filter = RangeFilterDouble (FieldName "age")
(RangeDoubleGtLt 100000.0 1000.0)
(RangeDoubleGtLt 1000.0 100000.0)
RangeExecutionIndex False
let search = mkSearch Nothing (Just filter)
myTweet <- searchTweet search