module Data.Factual.Query.ReadQuery
(
ReadQuery(..)
, 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 Network.HTTP.Base (urlEncode)
data ReadQuery = ReadQuery { table :: Table
, search :: Search
, select :: [String]
, limit :: Maybe Int
, offset :: Maybe Int
, filters :: [Filter]
, geo :: Maybe Geo
, includeCount :: Bool
} deriving (Eq, Show)
instance Query ReadQuery where
toPath query = (show $ table query)
++ "read?"
++ joinAndFilter [ searchString $ search query
, selectString $ select query
, limitString $ limit query
, offsetString $ offset query
, filtersString $ filters query
, geoString $ geo query
, includeCountString $ includeCount query ]
offsetString :: Maybe Int -> String
offsetString (Just x) = "offset=" ++ (urlEncode $ show x)
offsetString Nothing = ""