@@ -188,14 +188,17 @@ unpackId :: DocId -> String
188unpackId (DocId docId) = docId
188unpackId (DocId docId) = docId
190type Boost = Double
190type Boost = Double
191+type TrackSortScores = Bool
192data Search = Search { queryBody :: Maybe Query
195data Search = Search { queryBody :: Maybe Query
193 , filterBody :: Maybe Filter
196 , filterBody :: Maybe Filter
194 , sortBody :: Maybe Sort
197 , sortBody :: Maybe Sort
195 -- default False
198 -- default False
196− , trackSortScores :: Bool
199+ , trackSortScores :: TrackSortScores
197− , from :: Int
200+ , from :: From
198− , size :: Int} deriving (Eq, Show)
201+ , size :: Size} deriving (Eq, Show)
200data Query = TermQuery Term (Maybe Boost)
203data Query = TermQuery Term (Maybe Boost)
201 | ConstantScoreFilter Filter Boost
204 | ConstantScoreFilter Filter Boost