module Text.HTML5.MetaData.Schema.MedicalStudyStatus where
import Text.HTML5.MetaData.Class
import Text.HTML5.MetaData.Type
import Data.Text
data MedicalStudyStatus = ActiveNotRecruiting
| Completed
| EnrollingByInvitation
| NotYetRecruiting
| Recruiting
| ResultsAvailable
| ResultsNotAvailable
| Suspended
| Terminated
| Withdrawn
deriving (Show, Read, Eq)
instance MetaData MedicalStudyStatus where
_label = const "Medical Study Status"
_comment_plain = const ""
_comment = const ""
_url = const "http://schema.org/MedicalStudyStatus"