@@ -910,7 +910,7 @@ defaultCache = False
911{-| 'PrefixValue' is used in 'PrefixQuery' as the main query component.
911{-| 'PrefixValue' is used in 'PrefixQuery' as the main query component.
913−type PrefixValue = Text
913+-- type PrefixValue = Text
915{-| 'BooleanOperator' is the usual And/Or operators with an ES compatible
915{-| 'BooleanOperator' is the usual And/Or operators with an ES compatible
916 JSON encoding baked in. Used all over the place.
916 JSON encoding baked in. Used all over the place.
@@ -2283,7 +2283,7 @@ instance FromJSON Query where
2283 queryRangeQuery = pure . QueryRangeQuery
2283 queryRangeQuery = pure . QueryRangeQuery
2284 queryRegexpQuery = pure . QueryRegexpQuery
2284 queryRegexpQuery = pure . QueryRegexpQuery
2285 querySimpleQueryStringQuery = pure . QuerySimpleQueryStringQuery
2285 querySimpleQueryStringQuery = pure . QuerySimpleQueryStringQuery
2286− queryExistsQuery o = QueryExistsQuery <$> o .: "field"
2286+ -- queryExistsQuery o = QueryExistsQuery <$> o .: "field"
2289omitNulls :: [(Text, Value)] -> Value
2289omitNulls :: [(Text, Value)] -> Value
@@ -2751,10 +2751,10 @@ instance FromJSON BoostingQuery where
2751 <*> o .: "negative_boost"
2751 <*> o .: "negative_boost"
2753instance ToJSON BoolQuery where
2753instance ToJSON BoolQuery where
2754− toJSON (BoolQuery mustM filterM notM shouldM bqMin boost disableCoord) =
2754+ toJSON (BoolQuery mustM filterM' notM shouldM bqMin boost disableCoord) =
2755 omitNulls base
2755 omitNulls base
2756 where base = [ "must" .= mustM
2756 where base = [ "must" .= mustM
2757− , "filter" .= filterM
2757+ , "filter" .= filterM'
2758 , "must_not" .= notM
2758 , "must_not" .= notM
2759 , "should" .= shouldM
2759 , "should" .= shouldM
2760 , "minimum_should_match" .= bqMin
2760 , "minimum_should_match" .= bqMin