module Chapter2.DataModels where

data Client = GovOrg        String
            | Company       String Integer Person String
            | Individual    Person Bool
            deriving (Show)

data Person = Person String String Gender
            deriving Show

data Gender = Male | Female | Unknown
            deriving Show

data GenderStats = GenderStats (Integer, Integer, Integer)

data TimeMachine = TimeMachine String Integer String TravelDirection Double
                 deriving Show
data TravelDirection = Past | Future | PastAndFuture
                     deriving Show
