module Data.Factual.Query.FacetsQuery
(
FacetsQuery(..)
, module Data.Factual.Shared.Table
, module Data.Factual.Shared.Search
, module Data.Factual.Shared.Filter
, module Data.Factual.Shared.Geo
) where
import Data.Factual.Query
import Data.Factual.Shared.Table
import Data.Factual.Shared.Search
import Data.Factual.Shared.Filter
import Data.Factual.Shared.Geo
import Data.Factual.Utils
import qualified Data.Map as M
data FacetsQuery = FacetsQuery { table :: Table
, search :: Search
, select :: [String]
, filters :: [Filter]
, geo :: Maybe Geo
, limit :: Maybe Int
, minCount :: Maybe Int
, includeCount :: Bool
} deriving (Eq, Show)
instance Query FacetsQuery where
path query = (show $ table query) ++ "/facets"
params query = M.fromList [ searchPair $ search query
, selectPair $ select query
, filtersPair $ filters query
, geoPair $ geo query
, limitPair $ limit query
, minCountPair $ minCount query
, includeCountPair $ includeCount query ]
minCountPair :: Maybe Int -> (String, String)
minCountPair (Just x) = ("min_count", show x)
minCountPair Nothing = ("min_count", "")