From 16320685d5803732c9af034cacd37be27f88d36a Mon Sep 17 00:00:00 2001
From: Ashutosh Rishi Ranjan <ashutoshrishi92@gmail.com>
Date: Tue, 19 Jun 2018 20:53:19 +1000
Subject: [PATCH] Removed lower-case representation for auto fuzziness

---
 src/Database/V5/Bloodhound/Internal/Query.hs | 33 ++++++++++----------
 1 file changed, 16 insertions(+), 17 deletions(-)

diff --git a/src/Database/V5/Bloodhound/Internal/Query.hs b/src/Database/V5/Bloodhound/Internal/Query.hs
index 16f2903..7656ce8 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 =
@@ -834,16 +834,16 @@ instance FromJSON DisMaxQuery where
                     <*> o .:? "boost"
 
 data MatchQuery = MatchQuery
-  { matchQueryField           :: FieldName
-  , matchQueryQueryString     :: QueryString
-  , matchQueryOperator        :: BooleanOperator
-  , matchQueryZeroTerms       :: ZeroTermsQuery
-  , matchQueryCutoffFrequency :: Maybe CutoffFrequency
-  , matchQueryMatchType       :: Maybe MatchQueryType
-  , matchQueryAnalyzer        :: Maybe Analyzer
-  , matchQueryMaxExpansions   :: Maybe MaxExpansions
-  , matchQueryLenient         :: Maybe Lenient
-  , matchQueryBoost           :: Maybe Boost
+  { matchQueryField              :: FieldName
+  , matchQueryQueryString        :: QueryString
+  , matchQueryOperator           :: BooleanOperator
+  , matchQueryZeroTerms          :: ZeroTermsQuery
+  , matchQueryCutoffFrequency    :: Maybe CutoffFrequency
+  , matchQueryMatchType          :: Maybe MatchQueryType
+  , matchQueryAnalyzer           :: Maybe Analyzer
+  , matchQueryMaxExpansions      :: Maybe MaxExpansions
+  , matchQueryLenient            :: Maybe Lenient
+  , matchQueryBoost              :: Maybe Boost
   , matchQueryMinimumShouldMatch :: Maybe Text
   , matchQueryFuzziness          :: Maybe Fuzziness
   } deriving (Eq, Show)
@@ -1635,5 +1635,4 @@ instance ToJSON Fuzziness where
 
 instance FromJSON Fuzziness where
   parseJSON (String "AUTO") = return FuzzinessAuto
-  parseJSON (String "auto") = return FuzzinessAuto
-  parseJSON v = Fuzziness <$> parseJSON v
+  parseJSON v               = Fuzziness <$> parseJSON v