{-# LANGUAGE OverloadedStrings #-} module Text.HTML5.MetaData.Schema.FoodEstablishment where -- Valid: 2012-06-26 ( Schema.rdfs.org ) import Text.HTML5.MetaData.Class import Text.HTML5.MetaData.Type import Data.Text -- | A food-related business. -- -- [@id@] FoodEstablishment -- -- [@label@] Food Establishment -- -- [@comment@] A food-related business. -- -- [@ancestors@] @'Thing','Organization','LocalBusiness'@ -- -- [@subtypes@] @'Bakery','BarOrPub','Brewery','CafeOrCoffeeShop','FastFoodRestaurant','IceCreamShop','Restaurant','Winery'@ -- -- [@supertypes@] @'LocalBusiness'@ -- -- [@url@] data FoodEstablishment = FoodEstablishment { description :: Description , image :: Image , name :: Name , url :: Url , address :: Address , aggregateRating :: AggregateRating , containedIn :: ContainedIn , event :: Event , events :: Events , faxNumber :: FaxNumber , geo :: Geo , interactionCount :: InteractionCount , map :: Map , maps :: Maps , photo :: Photo , photos :: Photos , review :: Review , reviews :: Reviews , telephone :: Telephone , contactPoint :: ContactPoint , contactPoints :: ContactPoints , email :: Email , employee :: Employee , employees :: Employees , founder :: Founder , founders :: Founders , foundingDate :: FoundingDate , location :: Location , member :: Member , members :: Members , branchOf :: BranchOf , currenciesAccepted :: CurrenciesAccepted , openingHours :: OpeningHours , paymentAccepted :: PaymentAccepted , priceRange :: PriceRange , acceptsReservations :: AcceptsReservations , menu :: Menu , servesCuisine :: ServesCuisine } deriving (Show, Read, Eq) instance MetaData FoodEstablishment where _label = const "Food Establishment" _comment_plain = const "A food-related business." _comment = const "A food-related business." _url = const "http://schema.org/FoodEstablishment"