-- | This module exports the type used to represent a table for the read or
--   schema query types.
module Data.Factual.Shared.Table
  (
     -- * Table type
     Table(..)
  ) where

-- | This type defines the available tables. Use the Custom table option for
--   tables that are not listed you.
data Table = Places
           | RestaurantsUS
           | HotelsUS
           | Global
           | Crosswalk
           | HealthCareProviders
           | WorldGeographies
           | ProductsCPG
           | ProductsCrosswalk
           | Monetize
           | Custom String
           deriving Eq

-- Table is a member of the Show typeclass to generate the beginning of the path.
instance Show Table where
  show Places              = "/t/places"
  show RestaurantsUS       = "/t/restaurants-us"
  show HotelsUS            = "/t/hotels-us"
  show Global              = "/t/global"
  show Crosswalk           = "/t/crosswalk"
  show HealthCareProviders = "/t/health-care-providers-us"
  show WorldGeographies    = "/t/world-geographies"
  show ProductsCPG         = "/t/products-cpg"
  show ProductsCrosswalk   = "/t/products-crosswalk"
  show Monetize            = "/places/monetize"
  show (Custom name)       = "/t/" ++ name