{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE DeriveDataTypeable #-} module Text.HTML5.MetaData.Schema.Energy where -- Valid: 2016-02-03 (Schema.rdfs.org) import Text.HTML5.MetaData.Class import Text.HTML5.MetaData.Type import Data.Text import Data.Typeable import {-# SOURCE #-} qualified Text.HTML5.MetaData.Schema.Thing import {-# SOURCE #-} qualified Text.HTML5.MetaData.Schema.Intangible import {-# SOURCE #-} qualified Text.HTML5.MetaData.Schema.Quantity -- | Properties that take Energy as values are of the form ' '. -- -- [@id@] Energy -- -- [@label@] Energy -- -- [@comment@] Properties that take Energy as values are of the form ' '. -- -- [@ancestors@] @'Thing','Intangible','Quantity'@ -- -- [@subtypes@] -- -- [@supertypes@] @'Quantity'@ -- -- [@url@] data Energy = Energy { 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 Energy where _label = const "Energy" _comment_plain = const "Properties that take Energy as values are of the form ' '." _comment = const "Properties that take Energy as values are of the form ' '." _url = const "http://schema.org/Energy" _ancestors = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.Thing.Thing) ,typeOf (undefined :: Text.HTML5.MetaData.Schema.Intangible.Intangible) ,typeOf (undefined :: Text.HTML5.MetaData.Schema.Quantity.Quantity)] _subtypes = const [] _supertypes = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.Quantity.Quantity)]