@@ -9,12 +9,12 @@ module Database.V5.Bloodhound.Internal.Query
10import Bloodhound.Import
10import Bloodhound.Import
12−import Data.Char (isNumber)
12+import Data.Char (isNumber)
13−import qualified Data.HashMap.Strict as HM
13+import qualified Data.HashMap.Strict as HM
14−import Data.List (nub)
14+import Data.List (nub)
15−import qualified Data.Text as T
15+import qualified Data.Text as T
17−import Database.Bloodhound.Common.Script as X
17+import Database.Bloodhound.Common.Script as X
18import Database.V5.Bloodhound.Internal.Newtypes
18import Database.V5.Bloodhound.Internal.Newtypes
20data Query =
20data Query =
@@ -1625,7 +1625,9 @@ fieldTagged f o = case HM.toList o of
1625 [(k, Object o')] -> f (FieldName k) o'
1625 [(k, Object o')] -> f (FieldName k) o'
1626 _ -> fail "Expected object with 1 field-named key"
1626 _ -> fail "Expected object with 1 field-named key"
1628−{-| Fuzziness value as a number or 'AUTO'. -}
1628+-- | Fuzziness value as a number or 'AUTO'.
1630+-- https://www.elastic.co/guide/en/elasticsearch/reference/current/common-options.html#fuzziness
1629data Fuzziness = Fuzziness Double | FuzzinessAuto
1631data Fuzziness = Fuzziness Double | FuzzinessAuto
1630 deriving (Eq, Show)
1632 deriving (Eq, Show)