module Data.Factual.Shared.Table
(
Table(..)
) where
data Table = Places
| RestaurantsUS
| HotelsUS
| Global
| HealthCareProviders
| WorldGeographies
| ProductsCPG
| ProductsCrosswalk
| Monetize
| Custom String
deriving Eq
instance Show Table where
show Places = "/t/places"
show RestaurantsUS = "/t/restaurants-us"
show HotelsUS = "/t/hotels-us"
show Global = "/t/global"
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