@@ -188,14 +188,17 @@ unpackId :: DocId -> String
188188unpackId (DocId docId) = docId
189189
190190type Boost = Double
191+type TrackSortScores = Bool
192+type From = Int
193+type Size = Int
191194
192195data Search = Search { queryBody :: Maybe Query
193196 , filterBody :: Maybe Filter
194197 , sortBody :: Maybe Sort
195198 -- default False
196− , trackSortScores :: Bool
197− , from :: Int
198− , size :: Int} deriving (Eq, Show)
199+ , trackSortScores :: TrackSortScores
200+ , from :: From
201+ , size :: Size} deriving (Eq, Show)
199202
200203data Query = TermQuery Term (Maybe Boost)
201204 | ConstantScoreFilter Filter Boost