module Text.HTML5.MetaData.Schema.MedicalStudyStatus where
import Text.HTML5.MetaData.Class
import Text.HTML5.MetaData.Type
import Data.Text
import Data.Typeable
import qualified Text.HTML5.MetaData.Schema.Thing
import qualified Text.HTML5.MetaData.Schema.MedicalEntity
import qualified Text.HTML5.MetaData.Schema.MedicalIntangible
import qualified Text.HTML5.MetaData.Schema.MedicalEnumeration
data MedicalStudyStatus = ActiveNotRecruiting
| Completed
| EnrollingByInvitation
| NotYetRecruiting
| Recruiting
| ResultsAvailable
| ResultsNotAvailable
| Suspended
| Terminated
| Withdrawn
deriving (Show, Read, Eq, Typeable)
instance MetaData MedicalStudyStatus where
_label = const "Medical Study Status"
_comment_plain = const ""
_comment = const ""
_url = const "http://schema.org/MedicalStudyStatus"
_ancestors = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.Thing.Thing)
,typeOf (undefined :: Text.HTML5.MetaData.Schema.MedicalEntity.MedicalEntity)
,typeOf (undefined :: Text.HTML5.MetaData.Schema.MedicalIntangible.MedicalIntangible)
,typeOf (undefined :: Text.HTML5.MetaData.Schema.MedicalEnumeration.MedicalEnumeration)]
_subtypes = const []
_supertypes = const [typeOf (undefined :: Text.HTML5.MetaData.Schema.MedicalEnumeration.MedicalEnumeration)]