@@ -892,13 +892,14 @@ data MatchQuery =
892892 , matchQueryMatchType :: Maybe MatchQueryType
893893 , matchQueryAnalyzer :: Maybe Analyzer
894894 , matchQueryMaxExpansions :: Maybe MaxExpansions
895− , matchQueryLenient :: Maybe Lenient } deriving (Eq, Show)
895+ , matchQueryLenient :: Maybe Lenient
896+ , matchQueryBoost :: Maybe Boost } deriving (Eq, Show)
896897
897898{-| 'mkMatchQuery' is a convenience function that defaults the less common parameters,
898899 enabling you to provide only the 'FieldName' and 'QueryString' to make a 'MatchQuery'
899900-}
900901mkMatchQuery :: FieldName -> QueryString -> MatchQuery
901−mkMatchQuery field query = MatchQuery field query Or ZeroTermsNone Nothing Nothing Nothing Nothing Nothing
902+mkMatchQuery field query = MatchQuery field query Or ZeroTermsNone Nothing Nothing Nothing Nothing Nothing Nothing
902903
903904data MatchQueryType =
904905 MatchPhrase
@@ -1800,7 +1801,7 @@ instance ToJSON MatchQuery where
18001801 toJSON (MatchQuery (FieldName fieldName)
18011802 (QueryString mqQueryString) booleanOperator
18021803 zeroTermsQuery cutoffFrequency matchQueryType
1803− analyzer maxExpansions lenient) =
1804+ analyzer maxExpansions lenient boost) =
18041805 object [ fieldName .= omitNulls base ]
18051806 where base = [ "query" .= mqQueryString
18061807 , "operator" .= booleanOperator
@@ -1809,7 +1810,8 @@ instance ToJSON MatchQuery where
18091810 , "type" .= matchQueryType
18101811 , "analyzer" .= analyzer
18111812 , "max_expansions" .= maxExpansions
1812− , "lenient" .= lenient ]
1813+ , "lenient" .= lenient
1814+ , "boost" .= boost ]
18131815
18141816
18151817instance ToJSON MultiMatchQuery where