@@ -880,11 +880,13 @@ instance FromJSON Suggest where
880 return $ Suggest suggestText' suggestName' suggestType'
880 return $ Suggest suggestText' suggestName' suggestType'
881 parseJSON x = typeMismatch "Suggest" x
881 parseJSON x = typeMismatch "Suggest" x
883−data SuggestType = SuggestTypePhraseSuggester PhraseSuggester
884+ SuggestTypePhraseSuggester PhraseSuggester
884 deriving (Eq, Show)
885 deriving (Eq, Show)
886instance ToJSON SuggestType where
887instance ToJSON SuggestType where
887− toJSON (SuggestTypePhraseSuggester x) = object ["phrase" .= x]
888+ toJSON (SuggestTypePhraseSuggester x) =
889+ object [ "phrase" .= x ]
889instance FromJSON SuggestType where
891instance FromJSON SuggestType where
890 parseJSON = withObject "SuggestType" parse
892 parseJSON = withObject "SuggestType" parse