@@ -880,11 +880,13 @@ instance FromJSON Suggest where
880880 return $ Suggest suggestText' suggestName' suggestType'
881881 parseJSON x = typeMismatch "Suggest" x
882882
883−data SuggestType = SuggestTypePhraseSuggester PhraseSuggester
883+data SuggestType =
884+ SuggestTypePhraseSuggester PhraseSuggester
884885 deriving (Eq, Show)
885886
886887instance ToJSON SuggestType where
887− toJSON (SuggestTypePhraseSuggester x) = object ["phrase" .= x]
888+ toJSON (SuggestTypePhraseSuggester x) =
889+ object [ "phrase" .= x ]
888890
889891instance FromJSON SuggestType where
890892 parseJSON = withObject "SuggestType" parse