@@ -1103,7 +1103,7 @@ unpackId (DocId docId) = docId
11031103
11041104type TrackSortScores = Bool
11051105newtype 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)
11071107
11081108data Search = Search { queryBody :: Maybe Query
11091109 , filterBody :: Maybe Filter
@@ -1654,7 +1654,7 @@ type TemplateQueryKey = Text
16541654type TemplateQueryValue = Text
16551655
16561656newtype TemplateQueryKeyValuePairs = TemplateQueryKeyValuePairs (HM.HashMap TemplateQueryKey TemplateQueryValue)
1657− deriving (Eq, Read, Show, Generic)
1657+ deriving (Eq, Read, Show, Generic, Typeable)
16581658
16591659instance ToJSON TemplateQueryKeyValuePairs where
16601660 toJSON (TemplateQueryKeyValuePairs x) = Object $ HM.map toJSON x
@@ -5340,7 +5340,7 @@ data Suggest = Suggest { suggestText :: Text
53405340 , suggestName :: Text
53415341 , suggestType :: SuggestType
53425342 }
5343− deriving (Show, Generic, Eq, Read)
5343+ deriving (Show, Generic, Eq, Read, Typeable)
53445344
53455345instance ToJSON Suggest where
53465346 toJSON Suggest{..} = object [ "text" .= suggestText
@@ -5359,7 +5359,7 @@ instance FromJSON Suggest where
53595359 parseJSON x = typeMismatch "Suggest" x
53605360
53615361data SuggestType = SuggestTypePhraseSuggester PhraseSuggester
5362− deriving (Show, Generic, Eq, Read)
5362+ deriving (Show, Generic, Eq, Read, Typeable)
53635363
53645364instance ToJSON SuggestType where
53655365 toJSON (SuggestTypePhraseSuggester x) = object ["phrase" .= x]
@@ -5383,7 +5383,7 @@ data PhraseSuggester =
53835383 , phraseSuggesterHighlight :: Maybe PhraseSuggesterHighlighter
53845384 , phraseSuggesterCollate :: Maybe PhraseSuggesterCollate
53855385 }
5386− deriving (Show, Generic, Eq, Read)
5386+ deriving (Show, Generic, Eq, Read, Typeable)
53875387
53885388instance ToJSON PhraseSuggester where
53895389 toJSON PhraseSuggester{..} = omitNulls [ "field" .= phraseSuggesterField
@@ -5423,7 +5423,7 @@ data PhraseSuggesterHighlighter =
54235423 PhraseSuggesterHighlighter { phraseSuggesterHighlighterPreTag :: Text
54245424 , phraseSuggesterHighlighterPostTag :: Text
54255425 }
5426− deriving (Show, Generic, Eq, Read)
5426+ deriving (Show, Generic, Eq, Read, Typeable)
54275427
54285428instance ToJSON PhraseSuggesterHighlighter where
54295429 toJSON PhraseSuggesterHighlighter{..} =
@@ -5441,7 +5441,7 @@ data PhraseSuggesterCollate =
54415441 PhraseSuggesterCollate { phraseSuggesterCollateTemplateQuery :: TemplateQueryInline
54425442 , phraseSuggesterCollatePrune :: Bool
54435443 }
5444− deriving (Show, Generic, Eq, Read)
5444+ deriving (Show, Generic, Eq, Read, Typeable)
54455445
54465446instance ToJSON PhraseSuggesterCollate where
54475447 toJSON PhraseSuggesterCollate{..} = object [ "query" .= object