From 5bc6bb3a96aaea37ea2608efcd13bc3dd6e5023c Mon Sep 17 00:00:00 2001
From: Ashutosh Rishi Ranjan <ashutoshrishi92@gmail.com>
Date: Wed, 20 Jun 2018 10:45:23 +1000
Subject: [PATCH] Added documentation links on fuzziness

---
 changelog.md                                 |  4 ++++
 src/Database/V5/Bloodhound/Internal/Query.hs | 14 ++++++++------
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/changelog.md b/changelog.md
index a64c253..ae56f4e 100644
--- a/changelog.md
+++ b/changelog.md
@@ -18,9 +18,13 @@
   - Add the "stemmer" and "stop" [token filters][] to `TokenFilterDefinition`.
 - @ahodgen
   - Add support for wildcard queries
+- @ashutoshrishi
+  - Added [fuzziness][] option to a Match Query
+  - Added support for "AUTO" Fuzziness alongside a numeric value.
 
 [Character Filters]: https://www.elastic.co/guide/en/elasticsearch/reference/5.6/analysis-charfilters.html
 [Token Filters]: https://www.elastic.co/guide/en/elasticsearch/reference/5.6/analysis-tokenfilters.html
+[Fuzziness]: https://www.elastic.co/guide/en/elasticsearch/reference/current/common-options.html#fuzziness
 
 0.15.0.2
 ========
diff --git a/src/Database/V5/Bloodhound/Internal/Query.hs b/src/Database/V5/Bloodhound/Internal/Query.hs
index 7656ce8..08c77a4 100644
--- a/src/Database/V5/Bloodhound/Internal/Query.hs
+++ b/src/Database/V5/Bloodhound/Internal/Query.hs
@@ -9,12 +9,12 @@ module Database.V5.Bloodhound.Internal.Query
 
 import           Bloodhound.Import
 
-import           Data.Char                                (isNumber)
-import qualified Data.HashMap.Strict                      as HM
-import           Data.List                                (nub)
-import qualified Data.Text                                as T
+import           Data.Char           (isNumber)
+import qualified Data.HashMap.Strict as HM
+import           Data.List           (nub)
+import qualified Data.Text           as T
 
-import           Database.Bloodhound.Common.Script        as X
+import           Database.Bloodhound.Common.Script as X
 import           Database.V5.Bloodhound.Internal.Newtypes
 
 data Query =
@@ -1625,7 +1625,9 @@ fieldTagged f o = case HM.toList o of
                     [(k, Object o')] -> f (FieldName k) o'
                     _ -> fail "Expected object with 1 field-named key"
 
-{-| Fuzziness value as a number or 'AUTO'. -}
+-- | Fuzziness value as a number or 'AUTO'.
+-- See:
+-- https://www.elastic.co/guide/en/elasticsearch/reference/current/common-options.html#fuzziness
 data Fuzziness = Fuzziness Double | FuzzinessAuto
   deriving (Eq, Show)