gistfile1.hs

module Person where

data Condition = Bad | OK | Good
  deriving (Show)

data Person =
      Man {name :: String, age :: Int, prostateCondition :: Condition}
  | Woman {name :: String, age :: Int, ovaryCondition    :: Condition}

getGenderSpecificCondition (  Man _ _ cond) = cond
getGenderSpecificCondition (Woman _ _ cond) = cond

data Group = Group { members :: [Person] }

instance Show Group where
  show group = unlines $ map show $ members group

instance Show Person where
  show p = name p ++ "(" ++ (show $ age p) ++ ", " ++  (show $ getGenderSpecificCondition p) ++ ")"