module Text.HTML5.MetaData.Schema.Audience where
import Text.HTML5.MetaData.Class
import Text.HTML5.MetaData.Type hiding ( Audience )
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.BusinessAudience
import qualified Text.HTML5.MetaData.Schema.EducationalAudience
import qualified Text.HTML5.MetaData.Schema.MedicalAudience
import qualified Text.HTML5.MetaData.Schema.PeopleAudience
data Audience = Researcher
deriving (Show, Read, Eq, Typeable)
instance MetaData Audience where
_label = const "Audience"
_comment_plain = const ""
_comment = const ""
_url = const "http://schema.org/Audience"
_ancestors = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.Thing.Thing), typeOf (undefined :: Text.HTML5.MetaData.Schema.Intangible.Intangible)]
_subtypes = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.BusinessAudience.BusinessAudience), typeOf (undefined :: Text.HTML5.MetaData.Schema.EducationalAudience.EducationalAudience), typeOf (undefined :: Text.HTML5.MetaData.Schema.MedicalAudience.MedicalAudience), typeOf (undefined :: Text.HTML5.MetaData.Schema.PeopleAudience.PeopleAudience)]
_supertypes = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.Intangible.Intangible)]