{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE DeriveDataTypeable #-} module Text.HTML5.MetaData.Schema.ProgramMembership 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 -- | Used to describe membership in a loyalty programs (e.g. \"StarAliance\"), traveler clubs (e.g. \"AAA\"), purchase clubs (\"Safeway Club\"), etc. -- -- [@id@] ProgramMembership -- -- [@label@] Program Membership -- -- [@comment@] Used to describe membership in a loyalty programs (e.g. \"StarAliance\"), traveler clubs (e.g. \"AAA\"), purchase clubs (\"Safeway Club\"), etc. -- -- [@ancestors@] @'Thing','Intangible'@ -- -- [@subtypes@] -- -- [@supertypes@] @'Intangible'@ -- -- [@url@] data ProgramMembership = ProgramMembership { hostingOrganization :: HostingOrganization , member :: Member , membershipNumber :: MembershipNumber , programName :: ProgramName , 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 ProgramMembership where _label = const "Program Membership" _comment_plain = const "Used to describe membership in a loyalty programs (e.g. \"StarAliance\"), traveler clubs (e.g. \"AAA\"), purchase clubs (\"Safeway Club\"), etc." _comment = const "Used to describe membership in a loyalty programs (e.g. \"StarAliance\"), traveler clubs (e.g. \"AAA\"), purchase clubs (\"Safeway Club\"), etc." _url = const "http://schema.org/ProgramMembership" _ancestors = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.Thing.Thing) ,typeOf (undefined :: Text.HTML5.MetaData.Schema.Intangible.Intangible)] _subtypes = const [] _supertypes = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.Intangible.Intangible)]