bd513b7 · typeable/bloodhound

1103

1104type TrackSortScores = Bool

1105newtype From = From Int deriving (Eq, Read, Show, Generic, ToJSON)

1106−newtype Size = Size Int deriving (Eq, Read, Show, Generic, ToJSON, FromJSON)

1106+newtype Size = Size Int deriving (Eq, Read, Show, Generic, ToJSON, FromJSON, Typeable)

1107

1108data Search = Search { queryBody :: Maybe Query

1109 , filterBody :: Maybe Filter

1654type TemplateQueryValue = Text

1655

1656newtype TemplateQueryKeyValuePairs = TemplateQueryKeyValuePairs (HM.HashMap TemplateQueryKey TemplateQueryValue)

1657− deriving (Eq, Read, Show, Generic)

1657+ deriving (Eq, Read, Show, Generic, Typeable)

1658

1659instance ToJSON TemplateQueryKeyValuePairs where

1660 toJSON (TemplateQueryKeyValuePairs x) = Object $ HM.map toJSON x

5340 , suggestName :: Text

5341 , suggestType :: SuggestType

5342 }

5343− deriving (Show, Generic, Eq, Read)

5343+ deriving (Show, Generic, Eq, Read, Typeable)

5344

5345instance ToJSON Suggest where

5346 toJSON Suggest{..} = object [ "text" .= suggestText

5359 parseJSON x = typeMismatch "Suggest" x

5360

5361data SuggestType = SuggestTypePhraseSuggester PhraseSuggester

5362− deriving (Show, Generic, Eq, Read)

5362+ deriving (Show, Generic, Eq, Read, Typeable)

5363

5364instance ToJSON SuggestType where

5365 toJSON (SuggestTypePhraseSuggester x) = object ["phrase" .= x]

5383 , phraseSuggesterHighlight :: Maybe PhraseSuggesterHighlighter

5384 , phraseSuggesterCollate :: Maybe PhraseSuggesterCollate

5385 }

5386− deriving (Show, Generic, Eq, Read)

5386+ deriving (Show, Generic, Eq, Read, Typeable)

5387

5388instance ToJSON PhraseSuggester where

5389 toJSON PhraseSuggester{..} = omitNulls [ "field" .= phraseSuggesterField

5423 PhraseSuggesterHighlighter { phraseSuggesterHighlighterPreTag :: Text

5424 , phraseSuggesterHighlighterPostTag :: Text

5425 }

5426− deriving (Show, Generic, Eq, Read)

5426+ deriving (Show, Generic, Eq, Read, Typeable)

5427

5428instance ToJSON PhraseSuggesterHighlighter where

5429 toJSON PhraseSuggesterHighlighter{..} =

5441 PhraseSuggesterCollate { phraseSuggesterCollateTemplateQuery :: TemplateQueryInline

5442 , phraseSuggesterCollatePrune :: Bool

5443 }

5444− deriving (Show, Generic, Eq, Read)

5444+ deriving (Show, Generic, Eq, Read, Typeable)

5445

5446instance ToJSON PhraseSuggesterCollate where

5447 toJSON PhraseSuggesterCollate{..} = object [ "query" .= object