{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE DeriveDataTypeable #-} module Text.HTML5.MetaData.Schema.AnatomicalSystem where -- Valid: 2014-04-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.MedicalEntity -- | -- -- [@id@] AnatomicalSystem -- -- [@label@] Anatomical System -- -- [@comment@] -- -- [@ancestors@] @'Thing','MedicalEntity'@ -- -- [@subtypes@] -- -- [@supertypes@] @'MedicalEntity'@ -- -- [@url@] data AnatomicalSystem = AnatomicalSystem { additionalType :: AdditionalType , alternateName :: AlternateName , description :: Description , image :: Image , name :: Name , sameAs :: SameAs , url :: Url , code :: Code , guideline :: Guideline , medicineSystem :: MedicineSystem , recognizingAuthority :: RecognizingAuthority , relevantSpecialty :: RelevantSpecialty , study :: Study , associatedPathophysiology :: AssociatedPathophysiology , comprisedOf :: ComprisedOf , relatedCondition :: RelatedCondition , relatedStructure :: RelatedStructure , relatedTherapy :: RelatedTherapy } deriving (Show, Read, Eq, Typeable) instance MetaData AnatomicalSystem where _label = const "Anatomical System" _comment_plain = const "" _comment = const "" _url = const "http://schema.org/AnatomicalSystem" _ancestors = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.Thing.Thing) ,typeOf (undefined :: Text.HTML5.MetaData.Schema.MedicalEntity.MedicalEntity)] _subtypes = const [] _supertypes = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.MedicalEntity.MedicalEntity)]