@@ -224,9 +224,17 @@ data Query = TermQuery Term (Maybe Boost)
224224 | QueryFilteredQuery FilteredQuery
225225 | QueryFuzzyLikeThisQuery FuzzyLikeThisQuery
226226 | QueryFuzzyLikeFieldQuery FuzzyLikeFieldQuery
227− | QueryFunctionScoreQuery FunctionScoreQuery
227+ | QueryFuzzyQuery FuzzyQuery
228228 deriving (Eq, Show)
229229
230+data FuzzyQuery = FuzzyQuery { fuzzyQueryField :: FieldName
231+ , fuzzyQueryValue :: Text
232+ , fuzzyQueryPrefixLength :: PrefixLength
233+ , fuzzyQueryMaxExpansions :: MaxExpansions
234+ , fuzzyQueryFuzziness :: Fuzziness
235+ , fuzzyQueryBoost :: Maybe Boost
236+ } deriving (Eq, Show)
237+
230238data FuzzyLikeFieldQuery =
231239 FuzzyLikeFieldQuery { fuzzyLikeField :: FieldName
232240 -- anaphora is good for the soul.