{-# LANGUAGE OverloadedStrings #-} module Text.HTML5.MetaData.Schema.Sculpture where -- Valid: 2012-06-26 ( Schema.rdfs.org ) import Text.HTML5.MetaData.Class import Text.HTML5.MetaData.Type import Data.Text -- | [@id@] Sculpture -- [@label@] Sculpture -- [@comment_plain@] A piece of sculpture. -- [@comment@] A piece of sculpture. -- [@ancestors@] @'Thing','CreativeWork'@ -- [@subtypes@] @@ -- [@supertypes@] @'CreativeWork'@ -- [@url@] data Sculpture = Sculpture { description :: Description , image :: Image , name :: Name , url :: Url , about :: About , accountablePerson :: AccountablePerson , aggregateRating :: AggregateRating , alternativeHeadline :: AlternativeHeadline , associatedMedia :: AssociatedMedia , audio :: Audio , author :: Author , award :: Award , awards :: Awards , comment :: Comment , contentLocation :: ContentLocation , contentRating :: ContentRating , contributor :: Contributor , copyrightHolder :: CopyrightHolder , copyrightYear :: CopyrightYear , creator :: Creator , dateCreated :: DateCreated , dateModified :: DateModified , datePublished :: DatePublished , discussionUrl :: DiscussionUrl , editor :: Editor , encoding :: Encoding , encodings :: Encodings , genre :: Genre , headline :: Headline , inLanguage :: InLanguage , interactionCount :: InteractionCount , isFamilyFriendly :: IsFamilyFriendly , keywords :: Keywords , mentions :: Mentions , offers :: Offers , provider :: Provider , publisher :: Publisher , publishingPrinciples :: PublishingPrinciples , review :: Review , reviews :: Reviews , sourceOrganization :: SourceOrganization , text :: Text , thumbnailUrl :: ThumbnailUrl , version :: Version , video :: Video } deriving (Show, Read, Eq) instance MetaData Sculpture where _label = const "Sculpture" _comment_plain = const "A piece of sculpture." _comment = const "A piece of sculpture." _url = const "http://schema.org/Sculpture"