module Text.HTML5.MetaData.Schema.GeoShape where
import Text.HTML5.MetaData.Class
import Text.HTML5.MetaData.Type
import Data.Text
import Data.Typeable
import qualified Text.HTML5.MetaData.Schema.Thing
import qualified Text.HTML5.MetaData.Schema.Intangible
import qualified Text.HTML5.MetaData.Schema.StructuredValue
import qualified Text.HTML5.MetaData.Schema.GeoCircle
data GeoShape = GeoShape { address :: Address
, addressCountry :: AddressCountry
, box :: Box
, circle :: Circle
, elevation :: Elevation
, line :: Line
, polygon :: Polygon
, postalCode :: PostalCode
, additionalType :: AdditionalType
, alternateName :: AlternateName
, description :: Description
, image :: Image
, mainEntityOfPage :: MainEntityOfPage
, name :: Name
, potentialAction :: PotentialAction
, sameAs :: SameAs
, url :: Url
}
deriving (Show, Read, Eq, Typeable)
instance MetaData GeoShape where
_label = const "Geo Shape"
_comment_plain = const "The geographic shape of a place. A GeoShape can be described using several properties whose values are based on latitude/longitude pairs. Either whitespace or commas can be used to separate latitude and longitude; whitespace should be used when writing a list of several such points."
_comment = const "The geographic shape of a place. A GeoShape can be described using several properties whose values are based on latitude/longitude pairs. Either whitespace or commas can be used to separate latitude and longitude; whitespace should be used when writing a list of several such points."
_url = const "http://schema.org/GeoShape"
_ancestors = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.Thing.Thing)
,typeOf (undefined :: Text.HTML5.MetaData.Schema.Intangible.Intangible)
,typeOf (undefined :: Text.HTML5.MetaData.Schema.StructuredValue.StructuredValue)]
_subtypes = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.GeoCircle.GeoCircle)]
_supertypes = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.StructuredValue.StructuredValue)]